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了 


前 


中 华 学 习 机 以 前 所 未 有 的 速度 进入 寻常 人 家 ,成 为 人 们 工 
作 , 学 习 和 生活 的 得 力 助手 ,尤其 是 在 开发 青少年 的 智力 方面 ， 
已 经 显示 出 了 强大 的 威力 。 

为 满足 广大 青少年 .中 小 学 生 及 其 家 长 和 计算 机 爱好 者 对 
中 华 学 习 机 知识 的 渴求 ,我 们 组 扎 了 这 套 人 中华 学 习 机 实用 大 
全 》。 该 书 内 容 丰 富 、 具 体 、 实 用 ;把 中 华 学 习 机 的 最 新 软件 以 及 
最 实用 、 最 急需 的 技术 技巧 和 方法 毫 无 保留 地 介绍 给 读者 ,使 
初学 者 很 快 入 门 , 入 门 者 进一步 提高 ;学 到 知识 ,掌握 技术 ,增长 
才干 ,启迪 智慧 ,得 到 力量 ,增强 解决 实际 问题 的 能 力 。 

《中 华 学 习 机 实用 大 全 分 为 七 册 : 

1. BASIC 与 LOGO 语言 

2. 汉字 处 理 与 数据 库 技术 

3. 操作 系统 

4.FORTRAN 与 Pascal 语言 

5. 汇 编 语 言 程序 设计 

6. 游戏 与 绘图 

7. 硬件 维修 与 经 验 技巧 

为 便于 阅读 和 使 用 ,每 册 内 容 彼 此 均 是 独立 的 ,读者 可 以 从 
任何 一 本 书 开 始 阅读 。 但 是 ,如 果 读 者 是 计算 机 技术 的 初学 者 ， 
那么 最 好 按 顺 序 阅 读 , 当 然 ,每 本 书 中 可 以 只 选 学 自己 感 兴趣 的 
那 部 分 内 容 。 

《中 华 学 习 机 实用 大 全 》 在 内 容 安排 上 ,由 浅 入 深 , 循 序 渐 
进 。 既 考虑 到 初学 者 很 快 入 门 ,又 考虑 到 让 入 门 者 进一步 提高 ， 


还 考虑 了 应 用 者 能 够 实用 。 书 中 有 较 多 实例 ,读者 可 以 边 读 . 边 
学 . 边 用 , 边 想 . 边 写 ( 写 自己 的 程序 ) 。 在 结构 安排 上 , 既 便于 自 
学 ,又 可 以 作为 教材 。 在 文字 叙述 上 ,力求 浅显 .通俗 . 易 懂 。 在 
选材 上 ,突出 实用 性 技术 。 

本 书 是 《中华 学 习 机 实用 大 全 ;的 第 一 册 , 主 要 介绍 了 中 华 
学 习 机 的 主要 部 件 及 其 安装 ;BASIC 语言 及 其 程序 设计 方法 ; 
LOGO 语言 程序 设计 。 其 中 介绍 的 利用 LOGO 语言 来 绘制 函数 
图 形 是 同类 书 中 所 没有 的 内 容 。 

欢迎 读者 对 这 本 书 进 行 品评 ,指出 玻 漏 和 错误 ,我们 将 甚 为 
感谢 ! 

在 编写 本 书 的 过 程 中 ,电子 工业 出 版 社 和 电子 报社 的 编辑 
们 给 予 了 指导 和 帮助 ， 特 别 是 王 有 春 、 孙 萌 老师 提出 了 许多 宝 
贵 的 修改 意见 ; 为 调试 和 运行 示例 程序 ,成 都 三 开元 电脑 部 经 
理 舒 新 生 无 偿 地 提供 了 CEC-I 中 华 学 习 机 及 其 软件 ; 张 升 楷 副 
教授 审阅 了 全 部 书稿 。 在 此 一 并 表示 感谢 ! 

参加 本 书 编写 的 有 : 韩 仲 清 , 车 陆 翔 , 廖 兴 祥 , 刘 元 社 , 揭 金 
良 , 卿 文 模 。 全 书 由 韩 仲 清 统 稿 。 
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第 一 部 分 “中 华 学 习 机 及 
BASIC 语言 程序 设计 


中 华 学 习 机 是 一 种 价格 低廉 ,功能 较 强 , 结 构 灵 活 , 使 用 简 
便 , 无 特殊 环境 要 求 的 微型 电子 计算 机 。 该 机 迅速 普及 到 中 、 小 
学 ,进入 家 庭 , 将 有 力 地 促进 整个 中 华 民族 的 进步 和 繁荣 。 

中 华 学 习 机 的 主机 配 上 家 用 彩色 或 黑白 电视 机 就 可 以 组 成 
最 基本 的 微机 系统 .如 图 I (a) .如 果 增 配 家 用 录音 机 (可 以 是 廉 
价 的 盒 式 录音 机 ) 就 构成 了 在 录音 磁带 上 保存 程序 和 数据 的 中 
华 学 习 机 系统 。 如 图 I (b) 。 再 配 上 打印 机 及 软盘 驱动 器 就 构成 
一 台 和 APPLE I (苹果 ) 机 完全 兼容 ,功能 相当 且 在 汉字 处 理 能 
力 方面 有 所 增强 的 能 用 于 中 、 小 型 计算 与 事务 处 理 的 计算 机 系 
统 。 如 图 I (c) 。 这样 的 中 华 学 习 机 系统 其 价格 约 为 APPLE I 机 
之 一 半 。 

这 部 分 除了 介绍 中 华 学 习 机 的 硬件 安装 以 外 ,还 着 重 介绍 
了 CEC-I 中 华 学 习 机 上 BASIC 语言 的 程序 设计 方法 和 技巧 。 


《〈C) 


第 一 章 “” 中 华 学 习 机 的 主要 部 件 
及 其 安装 


1.1 主要 部 件 及 其 作用 


1.1.1 主机 


中 华 学 习 机 的 主机 在 机 壳 内 (键盘 下 面 ) 的 主 电路 板 上 。 它 
由 中 央 处 理 器 6502、 存 储 器 电路 、 输 入 输出 接口 电路 和 电源 所 
组 成 。 

中 央 处 理 器 6502 是 一 片 大 规模 集成 电路 。 它 的 时 钟 为 
1MHz, 一 种 为 十 5V 的 电源 。 有 8 条 数据 总 线 ,16 条 地 址 总 线 
( 寻 址 范围 64K 字 节 )。 中 央 处 理 器 6502 是 整个 机 器 的 核心 。 

存储 器 电路 可 分 为 半导体 存储 器 和 存储 器 管理 部 件 。 半 导 
体 存 储 器 有 RAM 和 :ROM 两 种 。 由 两 片 6 狼 X4 位 的 集成 电路 
5046 人 组 成 64K 字 节 的 RAM。 由 一 片 集成 电路 27256 组 成 32K 
字 节 的 ROM。ROM 上 固化 有 监控 程序 及 BASIC 语言 存储器 管 
理 部 件 由 门 阵列 器 件 组 成 。 在 主 电路 板 上 , 共 使 用 了 三 片 专用 集 
成 电路 , 除 存 储 器 管理 部 件 外 ,还 有 一 片 门 阵列 器 件 为 输入 输出 
管理 部 件 和 一 片 可 编程 阵列 逻辑 电路 PAL, 其 作用 是 产生 时 序 
信和 号 及 存储 器 行列 地 址 选 通信 号 等 。 

一 般 在 主 电 路 板 上 的 扩充 汉字 系统 插座 里 , 插 有 一 片 固 化 

3 。 


有 汉字 系统 的 ROM 片子 27256 ,两 片 固化 有 汉字 字库 的 ROM 
片子 和 两 片 TTL 电路 。 


1.1.2 键盘 


中 华 学 习 机 的 键盘 安装 在 主机 外 壳 上 ,具备 有 标准 打字 机 
键盘 的 各 种 键 , 键 位 的 排列 同 标准 打字 机 。 见 图 1. 1。 


加 EPE 

网 
ESC ， 和 Reset 
的 站 


1.1 键盘 

键盘 和 主机 通过 一 条 26 线 扁平 电缆 连接 ,直接 装 入 主机 帝 
内 。 用 户 通过 键盘 向 主机 输送 信息 。 此 键盘 具有 重复 功能 和 
键 滚动 功能 。 

所 谓 重复 功能 是 指 当 某 键 按 下 的 时 间 大 于 一 定 值 时 , 则 连 
续 不 断 地 重复 发 送 这 个 键 值 ,并 被 主机 接受 。 

所 谓 N 键 滚动 是 指 在 有 多 个 键 按 下 时 , 则 根据 被 敲 入 键 的 
先后 次 序 分 别 检测 并 输入 主机 ,同时 也 显示 在 屏幕 上 。 

键盘 的 技术 性 能 

键 数 :69 个 
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字符 编码 方式 :ASCII 码 

编码 个 数 :128 个 

接口 器 件 :KB3600-PRO 

特殊 键 功能 说 明 ， 

Capslock :大 小 写字 母 转 换 键 , 又 称 锁定 键 , 当 按 下 此 键 , 再 
攻 字 母 键 时 , 则 字母 全 是 大 写 。 若 又 按 一 次 锁定 键 , 即 抬 起 锁定 
键 , 则 再 敲 的 26 个 英文 字母 键 都 是 小 写 。 

Shift: 当 按 住 此 键 后 再 敲 另 一 键 时 ,按键 上 半 部 标注 的 字符 
输入 主机 并 显示 在 屏幕 上 。 

Esc: 按 此 键 后 ,再 敲 其 它 ASCII 键 产生 新 的 ASCII 码 输入 
主机 ,一 般 将 此 键 和 急 ,> ,人 ,V 键 用 于 屏幕 编辑 。 

Ctrl: 这 是 一 个 与 其 它 键 同时 按 下 产生 某 种 控制 码 的 键 , 例 
如 :在 运行 BASIC 程序 时 ,同时 按 下 Ctrl 和 字母 C 两 个 键 , 则 中 
断 正在 运行 的 BASIC 程序 , 回 到 BASIC 提示 状态 。 

Tab :屏幕 定位 键 。 如 屏幕 上 已 定 了 11、21、31、41 四 个 位 
置 , 光 标 在 13 那儿 , 殴 一 下 Tab 键 就 移 到 下 一 个 定位 21。 

Retrun : 回 车 键 ,程序 中 通常 用 巡 表 示 , 用 于 结束 一 个 命令 ， 
或 者 是 换行 ,功能 同 打 字 机 上 的 CR 键 。 

Reset: 同 时 按 下 本 键 与 Ctrl 键 , 使 机 器 系统 复位 (或 称 重 置 
系统 , 即 重新 启动 系统 ) 。 

[> : 薇 此 键 使 屏幕 上 的 光标 右 移 , 并 把 它 经 过 的 那些 符号 如 
同 从 键盘 输入 一 样 送 入 主机 。 

< : 痪 此 键 使 屏幕 上 的 光标 左 移 , 并 把 它 经 过 的 那些 符号 从 
主机 中 删 掉 。 

人 :光标 上 移 。 

:光标 下 移 。 

Test: 当 同时 按 下 -Ctrl-Reset-Test 三 个 键 时 ,主机 进行 自 检 。 
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Fl: 进入 ASCII 方式 。 按 此 键 后 ,再 敲 入 的 键 主 机 将 按 
ASCII 码 接收 并 显示 之 。 

F2: 进 入 拼音 方式 。 按 此 键 后 , 即 可 用 对 应 的 拼音 字母 输入 
汉字 。 

F3: 进 入 区 位 码 方式 。 按 此 键 后 , 即 可 用 区 位 码 输 入 汉字 。 

F4: 计 算 机 系统 把 该 键 留 给 用 户 作为 自 定义 的 功能 键 。 键 
码 为 : 14。 

F5: 留 给 用 户 作为 自 定义 的 功能 键 。 键 码 为 ;06。 

Quit : 按 此 键 使 系统 从 监控 状态 返回 到 BASIC 状态 ,此 键 不 
破坏 内 存 里 原 有 的 BASIC 程序 。 该 键 的 功能 相当 于 同时 按 Ctrl- 
C 两 个 键 。 


1.1.3 显示 器 


显示 器 是 计算 机 最 基本 的 输出 设备 ,是 人 一 机 对 话 的 主要 
工具 之 一 。 它 不 仅 显示 用 户 输入 的 字符 ,以 便 即 时 看 到 已 输入 的 
字符 是 否 正确 ,而 且 能 显示 主机 运行 的 过 程 及 结果 ,并 且 还 会 显 
示 主 机 对 用 户 所 提出 的 要 求 和 命令 。 

中 华 学 习 机 的 显示 器 可 以 用 通常 家 用 的 彩色 或 黑白 电视 机 
CPAL-D 制式 ) 代 替 , 也 可 以 用 单 色 或 彩色 (PAL-D 制式 ) 监视 
器 。 

对 于 彩色 或 黑白 电视 机 ,只 要 是 PAL-D 制式 的 , 即 能 接收 
我 国电 视 节 目的 电视 机 , 均 能 用 作 中 华 学 习 机 的 显示 器 。 

中 华 学习 机 的 显示 方式 有 五 种 。 

1. 字 符 显示 

能 显示 5X7 点 阵 构 成 的 96 种 字符 ( 西 文字 符 ) 。 显 示 屏 上 
共有 24 行 ,每 行 40 个 字符 , 即 可 显示 960 个 字符 ,可 以 显示 正 
相 的 ( 黑 底 白字 ), 也 可 以 显示 反 相 的 ( 白 底 黑 字 ) ,或 闪烁 显示 
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( 即 上 述 两 种 情形 的 交替 ) 。 

2. 低 分 辩 图 象 显 示 

可 显示 48X40(1920) 个 彩色 小 方块 。 每 个 小 方块 可 在 16 
种 不 同 颜色 中 选择 。 

3. 高 分 辨 图 象 显示 

可 显示 192X 280 个 彩色 点 。 每 个 点 可 在 38 种 不 同 颜色 中 
选择 。 

4. 混合 显示 

可 以 是 1.2 两 种 方式 的 混合 ,也 可 以 是 1.3 两 种 方式 的 混 
合 。 各 种 方式 的 转换 均 由 程序 通过 软 开 关 实 现 。 

5. 中 文 方式 

中 文 显示 采用 前 述 高 分 辨 图 象 显 示 方 式 , 以 16X16 的 点 阵 
显示 构成 7445 种 图 形 字符 ,其 中 包括 6763 个 汉字 及 英文 字母 、 
日 文 假名 、 拉 丁字 母 、 俄 文字 母 .希腊 字母 等 .显示 屏 上 共 能 显示 
11 行 。 前 10 行 ,每 行 显示 17 个 汉字 , 共 可 以 显示 汉字 170 个 。 
第 11 行 用 来 显示 当前 的 输入 方式 和 相应 的 提示 信息 。 


1.1.4 打印 机 


中 华 学 习 机 可 通过 打印 机 接口 板 与 打印 机 连接 。 打 印 机 接 
口 卡 可 插入 主机 扩充 槽 与 主机 50 线 总 线 相 连 。 中 华 学 习 机 可 
配 CP-80、RX-80、.MX-80、FX-80 或 MX-100、FX-100 等 多 种 型 
号 的 打印 机 。 在 汉字 管理 程序 中 ,打印 机 驱动 程序 的 设计 仅 适用 
于 九 针 图 形 打 印 机 。 其 功能 要 求 必 须 与 EPSON MX-80 亚 型 打印 
机 兼容 ,如 :FX-80 开 、RX-80 亚 、CP-80 焉 、FX-100+ 和 YAMATO 
等 型 号 的 打印 机 。 对 于 MX-80I 工 .FEX-80 I 、RX-80I 可 以 用 修 
改 控制 命令 的 方法 来 解决 。 

有 了 相 适 宜 的 打印 机 就 可 以 把 用 户 的 文件 .程序 报表、 图 
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形 等 打印 出 来 ,作为 资料 保存 使 用 。 
1.1.5 软盘 和 软盘 驱动 器 


软盘 的 作用 是 保存 程序 .数据 等 资料 信息 , 它 与 唱片 相似 。 
软盘 驱动 器 是 实现 对 软磁盘 进行 读 、 写 操作 的 硬 设备 。 中 华 学 习 
机 要 求 使 用 5. 25 英寸 单 面 单 密度 , 容 量 为 143K 字 节 的 软 磁 
盘 , 见 图 1.2。 

1. 软盘 片 使 用 注意 事项 

人 软盘 片 不 能 受 重 压 , 不 可 弯曲 ,使 用 后 要 及 时 插入 盘 片 的 
纸 盘 套 内 , 立 放 于 软盘 盒 中 。 

@@ 使 用 时 将 软盘 片 有 标签 的 一 面 朝 上 ,用 右手 拇指 按 住 有 
商标 的 那 一 面 ,将 有 磁头 读 / 写 窗口 的 一 边 先 插入 驱动 器 ,然后 
慢 慢 地 试探 性 地 推 入 软盘 片 ,直到 盘 片 全 部 进入 驱动 器 ,再 关 好 
驱动 器 的 门 。 


有 水 久 性 保护 
外 套 的 软盘 片 


图 1.2 软盘 
轧 取 出 时 用 食指 和 拇指 捏 住 盘 片 的 边缘 ,反方 向 抽出 。 
由 不 能 在 驱动 器 旋转 和 亮 灯 时 ,打开 驱动 器 门 ,抽出 或 插入 
人 人 


软盘 片 。 如 此 容易 损坏 软盘 片 ,丢失 盘 片 上 的 信息 。 
图 使 用 中 要 保持 盘 片 的 清洁 ,避免 灰尘 和 油污 的 污染 ,绝对 
禁止 用 手 触摸 暴 露 在 磁头 读 / 写 窗口 和 索引 孔 中 的 磁盘 部 分 。 
@@ 盘 片 的 保存 温度 最 好 在 10C 一 50C 之 间 , 避 开 磁 场 的 干 
扰 , 保 持 干燥 。 
2. 软盘 驱动 器 使 用 注意 事项 
人 对 软盘 驱动 器 要 做 到 轻 拿 轻 放 ,避免 剧烈 震动 ,以 防止 定 
位 机 构 松 动 。 
@@ 吉 免 在 软盘 驱动 器 工作 时 移动 盘 驱 本 身 。 
图 禁止 在 开机 状态 下 插 或 拔 软盘 驱动 器 和 软盘 驱动 器 接口 
卡 。 
八 不 可 在 马达 转动 时 抽 、 插 软盘 片 。 
@ 温 升 变化 范围 应 小 于 每 小 时 15C ,环境 温度 应 在 10C 一 
38C 之 间 。 
@@ 避 免 灰 尘 侵袭 ,不 要 将 站 有 灰尘 的 软盘 片 插入 到 软盘 驱 
动 器 中 。 
@ 磁 头 可 用 专用 的 清洗 软盘 片 或 磁带 的 清洗 液 。 
@@ 软 盘 驱动 器 应 远离 磁场 发 生源 ,不 用 时 不 要 将 软盘 片 留 
在 驱动 器 中 。 


1.1.6 录音 机 


录音 机 是 一 种 廉价 的 外 部 存储 器 ,由 于 一 旦 关 掉 电 源 , 主 机 
内 存 中 的 内 容 就 会 消失 ,所 以 除了 用 软盘 外 ,还 可 以 用 录音 机 磁 
带 保存 程序 .数据 等 资料 信息 。 中 华 学 习 机 要 求 录音 机 具有 录放 
功能 并 带 有 EAR 和 MIC3. 5mm 择 孔 。 建 议 使 用 工厂 推荐 的 配 
套 盒 式 录音 机 。 


1.1.7 电源 


在 主机 壳 内 左边 有 一 个 开关 电源 。 输 入 电压 为 220V ,交流 
50Hz, 最 大 功率 小 于 25w.。 由 开关 电源 输出 士 5v, 士 12v 供 主机 
及 磁盘 驱动 器 接口 工作 。 


中 华 学 习 机 可 以 不 需要 专门 的 电源 稳 压 器 。 


1.2 部 件 之 间 的 线路 连接 


(b) 正面 


图 1.3 主机 接口 图 
1 电源 开关 ;2, 扩充 槽 口 ;3. 电源 线 ;4. 电视 机 接口 ;5. 监视 器 接口 ; 
6. 磁盘 驱动 器 接口 ;7. 录音 机 接口 ;8. 游戏 杆 接口 ;9. 键盘 
首先 从 中 华 学习 机 主机 箱 中 小 心 取 出 主机 ,并 清点 随机 带 
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的 视频 电缆 ,录音 机 电缆 ,使 用 手册 等 附件 。 

主 桃 右上 角 有 一 个 电源 指示 灯 ( 小 孔 内 ) 。 电 源 一 旦 接 通 ,此 
灯 便 发 亮 。 前 半 部 是 键盘 ,机 壳 侧 面 装 有 各 种 接 插件 与 外 部 设备 
连接 。 

主机 上 的 接口 请 参看 图 1. 3。 

提醒 用 户 注意 :如 果 读 者 是 初次 安装 计算 机 系统 ,各 部 件 线 
路 连接 之 后 ,请 不 要 急于 打开 电源 开关 ,仔细 检查 各 部 件 之 间 的 
线路 连接 确认 正确 无 误 后 ,再 开启 电源 ,如 有 老师 指导 ,最 好 请 
老师 检查 后 ,再 开 电 源 。 


1.2.1 主机 和 屏幕 的 连接 


屏幕 可 以 用 电视 机 (彩色 或 黑白 或 监视 器 (彩色 或 黑白 )， 
但 连接 的 方法 不 一 样 。 
1. 电视 机 的 连接 


图 1.4 电视 机 的 连接 
第 一 步 :将 主机 和 电视 机 放 在 桌 上 ,并 配备 两 个 电源 插座 。 
第 二 步 :把 电视 机 的 天 线 插头 拔 去 。 
忆 于 T 


第 三 步 : 用 视频 电缆 线 一 头 插入 主机 的 电视 机 接口 ,一 头 插 
入 电视 机 天 线 插座 ,要 求 电视 机 天 线 插 座 的 输入 阻抗 为 758。 见 
图 1.4。 

第 四 步 :确认 主机 电源 开关 处 于 “OFF”( 关 闭 ) 位 置 。 见 图 
-55 


图 1.5 主机 电源 开关 位 置 

第 五 步 :将 电视 机 电源 插头 和 主机 电源 插头 分 别 插入 电源 
插座 。 

第 六 步 : 把 电视 机 的 音量 开关 拧 到 最 小 位 置 。 

第 七 步 : 先 开 电 视 机 再 开 主 机 。 

第 八 步 : 当 使 用 黑白 电视 机 时 ,首先 调 准 电 视 机 频道 (以 出 
厂 厂 家 要 求 为 准 ) 。 调 节 频 道 微调 及 对 比 度 、 亮 度 旋 纽 ,直到 屏幕 
出 现 清晰 的 “ZHONG HUA XUE XI JI 字样 为 止 。 

当 使 用 彩色 电视 机 时 ,同样 先 选 好 一 个 频道 ,并 通过 自 检 方 
式 进 入 显示 彩 条 图 象 , 然 后 调节 频道 微调 及 饱和 度 、 亮 度 . 对 比 
度 旋 纽 ,直到 屏幕 上 的 彩 条 满意 为 止 . 以 后 可 把 此 频道 作为 连接 
计算 机 的 专用 频道 ,再 开机 时 就 不 用 调 机 了 。 

注 : 主 机 的 电视 机 接口 输出 阻抗 是 759。 

2. 监视 器 的 连接 

第 一 步 :事先 准备 好 两 个 电源 插座 ,把 主机 和 监视 器 放 于 桌 
上 。 

。 12 。 


第 二 步 : 用 视频 电缆 线 一 头 插入 主机 的 监视 器 接口 , 另 一 头 
插入 监视 器 IN 播 座 , 见 图 1. 6。 
第 三 步 :确认 主机 电源 为 “OFF”( 关 闭 ) 位 置 。 
第 四 步 : 把 主机 电源 及 监视 器 电源 的 插头 分 别 播 入 电源 插 
座 。 
第 五 步 : 先 开 监 视 器 后 开 主 机 ,屏幕 将 出 现 清 晰 的 ”ZHONG 
HUA XUE XI JI 字样 。 


图 1-6 监视 器 的 连接 


1. 2.2 主机 和 录音 机 的 连接 


第 一 步 :确认 主机 电源 为 “OFF? 位 置 ,再 备 一 个 电源 插座 
〈 除 主机 、 显 示 器 电源 插座 外 ) 。 
第 二 步 :把 录音 机 电缆 线 的 一 端 (五 芯 插头 ) 插 入 主机 侧面 
的 录音 机 接口 ,必须 注意 :五 芯 插头 的 目 口 部 分 在 正 上 方 。 
第 三 步 : 电 缆 线 的 另 一 端的 两 个 3. 5mm 插头 ,分 别 插 入 录 
音 机 EAR 揪 孔 (连接 主机 IN) 和 MIC 插 孔 (连接 主机 OUT) 。 
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第 四 步 :把 录音 机 电源 线 插入 电源 插座 。 参 见 图 1.7。 


图 1.7 录音 机 连接 图 


1.2.3 主机 和 扩充 卡 的 连接 


主机 的 右上 方 有 个 50 线 的 扩充 槽 ,可 揪 多 种 外 设 卡 和 扩充 
卡 ( 如 打印 机 卡 , 音 乐 卡 ,A/D 转换 卡 等 )。 扩 充 卡 尺寸 太 大 插 不 
进去 ,可 采用 50 线 转 接 板 把 槽 口 抬 高 ,再 插 外 设 卡 或 扩充 卡 。 

第 一 步 :确认 主机 电源 为 "OFF"” 位 置 。 

第 二 步 :用 手轻 轻 压 下 扩充 槽 盖 , 可 看 到 印 制 板 上 安装 了 一 
个 50 线 插 槽 。 

第 三 步 :把 卡 按照 元 件 面 朝 前 ,焊接 面 朝 后 的 方向 对 准 槽 口 
往 王 播 。 必 须 注意 :一定 要 平 插 插 平 ,以 免 错 位 。 

扩充 槽 信号 排列 参看 图 1. 8。 

扩充 槽 的 槽 号 ,用 户 可 以 用 短 接 帆 来 选择 , 模 号 可 以 为 1， 
2,4,5，7 中 的 任 一 个 。 3 号 槽 已 用 于 汉字 系统 ,6 号 槽 已 固定 用 
于 磁盘 驱动 器 接口 , 故 不 可 再 选用 它们 。 出 厂 时 一 般 都 设 在 第 ! 
槽 ,即将 两 个 短 接 帽 插 在 标 有 “1 的 位 置 上 。 选 择 槽 号 插头 位 于 
主机 板 的 右 侧 ,并 标 有 槽 号 .如 需 改 槽 号 , 需 打 开 主 机 壳 , 把 原 在 
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于 号 槽 位置 的 两 个 短 接 帽 取 下 并 揪 
脂 所 需要 的 槽 号 插头 上 。 


1.2.4 主机 和 打印 机 的 连接 


用 1. 2. 3 节 介 绍 的 方法 将 主机 
和 打印 机 卡 连接 好 后 ,再 用 打印 机 
与 主机 的 20 线 ( 扁 平 ) 连 接 电缆 连 
接 主 机 与 打印 机 。 

第 一 步 :确认 主机 及 打印 机 电 
源 开 关 为 “OFF” 位 置 。 

第 二 步 :将 连接 主机 接口 卡 
(小 ) 的 一 端 及 连接 打印 机 接口 (大 ) 
的 一 端 ,分 别 揪 合 在 主机 上 的 打印 
机 卡 接口 及 打印 机 的 接口 上 (注意 
两 端 接触 良好 ) 。 

第 三 步 : 先 开 打印 机 后 再 开 主 
机 电源 开关 。 


1.2.5 主机 和 磁盘 驱动 器 的 连接 


IOSTRO8B 


第 一 步 :确认 主机 电源 开关 处 
于 “OFF 位置。 

第 二 步 :把 磁盘 驱动 器 电缆 线 
《20 线 扁平 电源 ) 的 一 端 连接 驱动 
器 , 另 一 端 插入 主机 上 的 驱动 器 接 
口 .必须 注意 : 插 针 与 插 孔 必须 一 一 
对 应 ,电缆 线 两 端的 凸 出 部 分 都 朝 


Ai5 

R/7W. 
SYNC 

RDY 


DMA 


+5V 
图 1.8 扩充 槽 信号 排列 图 
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图 1.9 驱动 器 的 连接 


1.3 中 华 学 习 机 的 自动 检测 


同时 键入 Ctrl-Reset-Test 三 个 键 量 最 后 放 开 Test 键 , 可 进行 
主机 检测 , 亦 称 主机 自 检 。 即 对 RAM.ROM 进行 检测 ,显示 器 显 
示 相 应 的 检测 内 容 和 结果 。 如 图 1. 10。 

其 中 RAM 部 分 是 测试 $0000 一 $BFFF 48K RAM。 

BNK1、BNK2 部 分 是 用 两 个 软 开 关 测 试 $D000~ $EFFFF 
RAM。 


当 测 试 正确 ,屏幕 显示 OK, 如 有 错 ,屏幕 相应 处 显示 ERR 。 
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ROM1 是 测试 LOGO 语言 的 。 

ROM2 是 测试 中 华 学 习 机 CEC-BASIC 和 监控 内 容 的 ， 
ROM1 和 ROM2 是 合 在 一 块 27256ROM 片上 的 。 

AUX1 测试 汉字 码 表 内 容 。 

AUX2 测试 汉字 管理 系统 内 容 。AUX1 和 AUX2 合 在 一 块 
27256ROM 片上 。 

AUX3 测试 两 块 1 兆 位 的 汉字 库 内 容 。 


MEMORY 一 TEST 
TIMES:0001 


OK 
BNK1 FFEFF OK 
BNK2 FFFF OK 
ROM1 BEFFEF LOGO 
ROM2 FEFEFF CEC-BASIC 
AUX1 BEFFF HZTABLE 
AUX2 FFFE HZPROGRAM 


CECWL 


图 1.10 主机 自 检 内 容 
测试 正确 ,屏幕 将 显示 相应 的 测试 内 容 名 称 , 如 果 测 试 出 不 
为 所 知 的 内 容 , 屏 幕 将 显示 UNKNOWN (不 认识 )。 当 没有 加 汉 
字库 时 ,屏幕 将 在 相应 的 位 置 显 示 NULL。 
当 RAM、ROM 测试 完毕 ,程序 进行 彩色 显示 测试 ,屏幕 将 
显示 出 16 种 不 同 颜色 的 彩 条 。 
自 检 程 序 可 连续 循环 地 测试 ,并 在 TIMES :一 栏 显 示 测 试 的 
次 数 。 如 需 调 试 彩电 ,可 在 屏幕 显示 彩 条 时 融 任 何 一 个 键 使 屏幕 
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一 直 显 示 彩 条 ,直到 您 调试 好 彩电 ,再 按 任 一 个 键 又 进入 自 检 程 
序 循环 测试 。 如 要 中 断 自 检 ,请 同时 按 下 CtrLReset 键 ,系统 便 退 
出 检测 而 进入 BASIC 状态 。 


1.4 中 华 学 习 机 的 主要 技术 指标 


CEC- I 中 华 学 习 机 的 主要 技术 指标 .性 能 如 下 ; 

1. 主机 

@@ 中 央 处 理 器 :6502,8 位 微 处 理 器 。 

@@ 内 存 容 量 :64K 字 节 RAM。 

轿 32K 字 节 ROM, 固 化 监控 程序 及 BASIC.LOGO ( 子 集 ) 语 


H 


井 专 用 集成 电路 :一片 门 阵 列 器 件 MMU 为 存储 器 管理 部 
件 ,一片 门 阵 列 器 件 IOU 为 输入 /输出 管理 部 件 ,一 片 可 编程 阵 
列 逻 辑 电 路 PAL 产生 时 序 信号。 

@ 汉 字 系 统 : 汉 字 系 统 已 做 在 主机 板 上 ,可 根据 用 户 需 要 取 
舍 。 该 系统 提供 拼音 、 区 位 、 音 形 等 输入 方式 ,采用 全 点 阵 的 国标 
一 二 级 汉字 字库 (两 片 一 兆 位 ROMD) ,包括 6763 个 汉字 及 外 文 
字母 等 。 

@@ 显 示 器 接口 :一 个 是 经 过 调制 器 输出 的 射频 信号 ,可 连接 
PAL 制式 彩色 或 黑白 电视 机 * 另 一 个 是 全 电视 视频 信号 (没有 音 
频 ) 输 出 ,可 连接 标准 的 PAL 制式 彩色 或 单 色 监视 器 。 

包 盒 式 磁带 机 接口 :该 接口 可 与 一 般 家 用 录音 机 连接 ,作为 
廉价 外 存 设备 。 提 供 输出 电压 是 25mvV ,输出 阻抗 1002, 要 求 输 
入 信和 号 峰 - 峰 值 电压 是 1V ,输入 阻抗 12kQ。 

四 磁盘 ( 软 盘 ) 驱 动 器 接口 :磁盘 驱动 器 接口 已 做 在 主机 板 
上 ,用 于 连接 一 个 5. 25 英寸 的 磁盘 驱动 器 。 
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@@ 游 戏 控制 杆 接口 : 九 针 的 游戏 杆 插座 提供 三 个 TTL 电 平 
开关 量 输入 ,四 个 模拟 量 输入 。 

辆 扬声器 接口 :内 接 0. 25W 8@ 扬声器 。 

加 键盘 :键盘 是 标准 的 打字 机 键盘 ,具有 69 个 键 , 包 括 大 小 
写字 母 、 数 字 及 一 些 特殊 功能 控制 键 。 采 用 弹 筑 键 体 ,键盘 通过 
26 线 扁平 电缆 直接 连接 主机 板 的 键盘 接口 , 装 在 主机 上 。 

@ 扩 充 槽 口 :在 主机 板 上 留 有 一 个 与 APPLE 工 系列 兼容 的 
50 线 输入 /输出 插座 。 此 插座 可 插 打 印 机 接口 电路 或 其 它 扩 充 
电路 板 。 

@ 电 源 :采用 开关 电源 ,提供 四 路 电源 ,额定 负载 为 :十 5V、 
1.7A; 一 5V、0.1A; 十 12V、0.8A; 一 12V、0. 1A。 总 功 耗 约 25W 。 

2. 显示 器 

可 用 彩色 或 黑白 电视 机 ,也 可 用 彩色 或 单 色 监视 器 ,其 屏幕 
显示 功能 为 ， 

四 西 文 方式 

字符 构成 :5X7 点 阵 。 

每 帧 字符 :40 字符 X24 行 。 

显示 方式 :正常 , 反 相 ,闪烁 。 

@@ 中 文 方式 

字符 构成 :16X16 点 阵 ( 汉 字 ),8X16 点 阵 (ASCII 码 ) 。 

每 帧 字符 :17 字符 (汉字 )X10 行 ， 

34 字符 (ASCII 码 ) X10 行 。 

另 加 一 个 状态 行 。 

@@ 图 形 方式 

低 分 辩 率 彩色 图 形 显 示 :分 辩 率 为 40HX 48V,16 种 颜色 。 

高 分 辨 率 彩 色 图 形 显 示 :分 辩 率 为 280HX 192V,8 种 颜色 。 

3. 软盘 驱动 器 

se。 1]19 。 


5. 25 英寸 软盘 驱动 器 ,采用 单 面 单 密度 记录 方式 ,格式 化 
后 容量 为 143K 字 节 。 

4. 盒 式 磁带 机 

任 选 专用 磁带 机 或 普通 盒 式 录音 机 ,用 普通 标准 录音 磁带 。 

5. “打印 机 

打印 机 与 可 扩充 的 打印 机 接口 电路 板 相 连 。Centronic 标准 
接口 可 配 多 种 点 阵 打 印 机 和 彩色 绘图 打印 机 。 

6. 系统 软件 

包括 监控 程序 .DOS3. 3、.CEC-BASIC、.LOGO ( 子 集 ) .汉字 管 
理 软件 .cdBASE IE 、WORDSTAR .CP/M 操作 系统 .FORTRAN 语 
言 .Pascal 语言 .6502 汇编 语言 等 。 
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第 二 章 ”BASIC 语言 的 基本 概念 


从 本 章 起 ,我 们 针对 中 华 学 习 机 CEC- I ,开始 介绍 BASIC 
语言 的 一 些 基本 概念 和 程序 设计 方法 。 这 些 概念 和 方法 不 仅 适 
用 于 中 华 学 习 机 ,而 且 也 适用 于 一 般 计 算 机 的 BASIC 语言 。 掌 
握 了 BASIC 语言 后 再 去 学 习 其 它 高 级 语言 也 就 不 困难 了 。 


2.1 什么 叫 BASIC 语言 


2.1.1 BASIC 是 什么 意思 


对 于 BASIC 语言 ,读者 可 能 并 不 陌生 。 因 为 很 多 场合 都 能 
碰 到 它 。 但 究竟 是 什么 意思 ,有 些 读者 ,特别 是 计算 机 技术 的 初 
学 者 可 能 就 不 太 清 楚 了 。 单 就 BASIC 这 几 个 字符 来 说 , 它 是 英 
文 Beginer' s All-putpose Symbolic Instruction code 的 缩写 ,意思 是 
初学 者 的 通用 符号 指令 代码 。 它 代表 了 一 种 语言 。 但 这 种 语言 
不 同 于 日 常生 活 中 用 于 交流 思想 感情 的 自然 语言 , 它 是 一 种 用 
于 描述 小 型 数值 计算 问题 和 事务 管理 的 计算 机 算法 语言 。 

就 一 般 来 说 ,BASIC 语言 总 是 与 某 类 微电脑 联系 在 一 起 。 如 
中 华 学 习 机 CEC- I , 它 使 用 的 BASIC 语言 通常 说 成 CEC-BA- 
SIC ,表示 BASIC 语言 适用 于 具体 的 CEC- I 机 。 类 似 的 有 AP- 
PLE IEBASIC, 紫 金 IBASIC,IBM PC BASIC 等 等 。 

对 于 初学 者 来 说 ,只 要 掌握 了 某 种 计算 机 上 BASIC 语言 
使 用 方法 ,对 于 其 它 计 算 机 上 的 BASIC 语言 也 就 容易 触 类 旁 通 
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了 。 因 为 从 总 体 语法 规则 来 说 ,不 同 计 算 机 上 的 BASIC 语言 总 
是 大 同 小 异 。 因 此 ,建议 读者 在 学 习 一 种 语言 (不 论 是 什么 语 
言 ) 时 , 先 结合 一 台 具 体 的 计算 机 , 边 学 边 用 ,学 用 结合 ,这 样 可 
以 收 到 多 快 好 省 的 效果 。 


2. 1.2 BASIC 语言 的 特点 


BASIC 语言 自身 有 很 多 特点 ,但 归纳 起 来 ,最 重要 的 特点 
有 : 

1. 语法 规则 比较 简单 直观 ,容易 为 大 多 数 人 理解 和 接受 。 
因而 容易 学 会 使 用 。 

2. 程序 结构 简便 。 由 于 大 多 数 微机 上 的 BASIC 语言 都 采用 
解释 性 的 方法 来 实现 ,因而 对 BASIC 语句 的 增加 删改 都 比较 容 
易 。 

3. BASIC 语言 具有 很 强 的 人 一 机 会 话 功能 。 人 们 在 使 用 
时 ,能够 随时 掌握 语句 的 执行 情况 ,能 够 及 时 调整 和 交换 信息 。 

由 于 BASIC 语言 具有 简便 实用 的 特点 ,因而 目前 几乎 所 有 
的 微机 上 都 配备 了 BASIC 语言 系统 。 随 着 计算 机 技术 的 不 断 发 
展 ,BASIC 语言 自身 也 在 不 断 改进 和 提高 。 总 的 发 展 趋势 是 : 功 
能 越 来 越 强 ,使 用 越 来 越 方便 。 我 们 着 重 介 绍 的 中 华 学 习 机 上 的 
BASIC 语言 ,已 经 固化 在 主机 的 只 读 存 储 器 中 , 称 CEC- I BA- 
SIC, 简 称 BASIC , 其 功能 相当 于 扩展 BASIC。 它 除了 具有 AP- 
PLESOFT BASIC 的 功能 外 ,还 提供 了 对 汉字 的 输入 显示 和 打 
印 等 功能 。 可 以 说 ,CEC-BASIC 是 一 个 小 型 多 功能 语言 系统 。 


2.1.3 BASIC 语言 的 使 用 方式 


_ BASIC 语言 有 两 种 使 用 方式 ( 亦 称 执行 方式 )。 一 是 人 一 机 
对 话 方式 .所 谓 人 一 机 对 话 方式 ,就 是 指 在 机 器 上 痪 入 一 个 命令 
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后 机 器 就 立即 执行 之 ,其 执行 结果 立刻 在 屏幕 上 显示 出 来 .这 种 
一 问 一 答 的 方式 ,最 适宜 于 初学 者 作为 熟悉 BASIC 语言 练习 之 
用 ,因为 看 得 见 , 很 实在 。 另 一 种 方式 就 是 程序 设计 方式 。 这 种 
方式 的 特点 是 将 需要 进行 的 计算 或 事务 管理 工作 编制 为 统一 的 
程序 ,再 输入 机 内 一 起 执行 。 这 种 方式 速度 快 ,程序 能 够 自动 执 
行 ,适宜 于 实际 应 用 .当然 ,两 种 方式 在 使 用 中 并 不 能 截然 分 开 。 
在 本 书 中 ,我 们 着 重 介绍 程序 设计 的 工作 方式 。 

下 面 用 一 个 例子 来 说 明 两 种 执行 方式 的 主要 区 别 。 

例 2.1 计算 梯形 的 面积 。 公 式 为 

S 一 (上 底 十 下 底 ) 义 高 /2。 

假设 用 入 表示 上 底 ,B 表示 下 底 , 蔚 表 示 高 。 给 出 一 组 数据 
为 :3,4,5( 即 上 底 王 3, 下 底 一 4, 高 一 5) 。 

用 对 话 方式 ,BASIC 执行 情况 如 下 (表示 回 车 键 ) : 


]A 王 3 巡 将 上 底 值 3 送 到 和 
]B=4x 巡 下 底 值 4 送 到 B 
]H=5 k 巡 高 的 值 5 送 到 H 
Js=(A 十 B) x* H/2 x 计算 梯形 面积 
]PRINT SAx 巡 打印 计算 结果 
17.5 运算 的 结果 

用 程序 设计 方式 如 下 : 

]10 INPUT A,B,H 使 A,B,H 得 到 值 
]20 S 王 (A 十 B) x H/2 计算 面积 

]30 PRINT S 巡 打印 计算 结果 
]RUN 运行 程序 

? 3,4,5 pl/ 输入 数据 

17.5 输出 运算 结果 

] 回 到 BASIC 状态 


如 果 读 者 亲自 上 机 一 试 , 就 会 发 党 :对话 方式 的 特点 是 敲 入 
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一 个 语句 后 就 立刻 执行 那个 语句 ,并 且 语 句 之 前 不 带 行 号 ( 即 每 
行 前 面 给 出 的 无 符号 整数 ) 。 而 程序 设计 方式 是 把 所 有 语句 全 部 
输入 机 内 ,最 后 发 布 运行 命令 RUN ,机 器 才 从 行 号 小 的 语句 开 

台 执 行 ,输出 运行 结果 。 如 果 对 上 述 语句 中 的 符号 不 清楚 , 没 关 
系 , 待 下 一 章 介绍 后 就 自然 明白 了 。 


2.1.4 本 部 分 用 到 的 书写 记号 约定 


为 了 叙述 的 方便 ,本 部 分 经 常用 到 坟 下 一 些 记号 .这 些 记号 
不 是 BASIC 语言 自身 的 内 容 , 引 入 这 些 记 号 纯粹 是 为 了 说 起 来 
简便 。 

[一 一 表示 方 括号 中 的 内 容 可 根据 实际 需要 进行 取 含 ， 
称 为 待 选项 。 

(…) 一 一 表示 尖 括 号 中 的 项 在 实际 书写 程序 时 必须 填 入 具 
体 的 内 容 , 但 程序 中 并 不 书写 尖 括 号 。 


上 一 一 表示 回 车 键 , 即 键盘 上 的 攻 eturn] 键 。 
[ct 十 区 esed| 一 一 表示 先 按 住 [Ctrl 键 不 松手 ,再 散 区 esed| 键 。 


(其 它 语言 描述 中 ,也 有 类 似 的 约定 ) 。 
2.2 BASIC 语言 用 到 的 符号 

任何 一 种 语言 ,包括 自然 语言 在 内 ,都 要 用 到 一 些 符号 ,如 

汉语 中 使 用 的 符号 除了 汉字 本 身 外 ,还 有 标点 符号 等 等 英语 中 


用 到 的 符号 有 26 个 大 、 小 写字 母 ,标点 符号 ,数字 符号 等 等 。 那 
么 BASIC 语言 中 需要 哪些 符号 呢 ? 
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2.2.1 字符 集 


所 谓 BASIC 语言 的 字符 集 , 就 是 BASIC 语言 中 可 能 用 到 的 
所 有 符号 。 根 据 符 号 的 性 质 , 可 以 分 为 以 下 几 类 : 

1. 字母 

BASIC 语言 中 要 用 到 的 字母 有 :A,B,C,D,E,F,G,H,I,J， 
K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z。 字 母 必 须 用 大 写 。 


上 下 角 盘 上 的 | 可 以 擦 为 大 写 


2. 汉字 

中 文 方 式 下 的 BASIC 语言 可 用 全 点 阵 的 一 二 级 汉字 库 中 
的 6763 个 汉字 。 

3. 数字 

BASIC 中 可 用 的 数字 符号 有 :0,1,2,3,4,5,6,7,8,9 共 十 
个 数字 符号 。 

4 其 他 符号 

BASIC 语言 中 常用 的 其 他 符号 有 :十 一 */” (一 >>，$ 
听 人 等 等 。 

BASIC 语言 能 够 使 用 的 符号 都 列 在 键盘 上 ,请 参看 图 1. 1 。 


2. 2. 2 BASIC 语言 的 保留 字 


在 BASIC 语言 中 ,为 了 描述 问题 的 需要 , 某 些 字符 已 经 结 
合 在 一 起 ,形成 一 个 单词 如 INPUT,FOR ,TO ,DATA 等 等 ,这 些 
单词 在 语言 中 已 有 固定 的 含义 并 保留 作 专门 之 用 , 称 为 保留 字 。 
顾名思义 ,保留 字 就 是 保留 给 系统 专用 的 单词 ,用户 不 得 再 派 用 
场 。BASIC 语言 的 保留 字 如 下 ; 
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ABS AND ASC AT ATN 
CALL CHR $ CLEAR CLOLOR 王 CONT 
COS 
DATA DEF DEL DIM DRAW 
END EXP 
ELASH FEN FOR ERE 
GET GOSUB GOTO GR 
HCOLOR 王 “HGR HGR2 HIMEM: HLIN 
HOME HPLOT HTAB 
IE JIN 间 INPUT INT 
INVERSE 
LEFT$ LEN LET LIST LOAD 
LOG LOMEM , LG 
MID $ MUSIC 
NEVW NEXT NORMAL NOT 
NOTRACE 
ON ONERR OR. 
PDL PEEK PLOT POKE POP 
POS PRINT PR ## PLAY 
READ RECALL REM RESTORE 
RESUME RETURN RIGHT 和 
RND ROT 一 RUN 
SAVE SCALLE 一 SCRNC SGN 
SHLOAD SIN SPC( 
SPEED 一 SQR STEP SITOP 
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STORE STR $ 


TAB( TAN TEXT THEN TO 
TRACE 

USR 

VAL VLIN VTAB 

WAIT 

XPLOT XDRAVW 


2.3 常量 .变量 和 字符 串 


2.3.1 常量 及 其 写法 


什么 叫 常量 ? 所 谓 常 量 (或 称 常数 ) 就 是 其 值 是 固定 不 能 变 
化 的 量 。 例 如 :数值 195, 一 经 写 定 其 值 就 不 能 再 变 成 352 了 。 根 
据 常量 的 书写 形式 ,常量 可 分 为 数值 常量 .字符 串 常 量 和 逻辑 常 
量 。 

1.， 数值 常量 

所 谓 数值 常量 就 是 其 值 是 固定 不 变 的 且 组 成 符号 仅 由 数 
字 、 正 号 (十 )、 负 号 (一 )、 小 数 点 (。) 和 指数 符号 下 按 一 定 规则 
组 成 。 

例 2.2 十 18.73, 一 39. 265,1988,1. 285E 十 3(E 代表 底数 
10, 即 为 1.285X103) 。 

这 些 数 都 是 正确 的 数值 常数 。 数 值 常数 的 书写 除了 指数 必 
须 用 己 来 表示 底数 10 以 外 ,原则 上 同 数学 中 一 样 。 在 书写 数值 
常量 时 必须 注意 十 .一 `E 符号 的 正确 位 置 。 数 值 常量 的 值 就 是 
它 所 表示 的 代数 值 。 
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2. 字符 串 常 量 

字符 串 常量 是 用 引号 “> 括 起 来 的 字符 序列 。 

例 2. 3“ 我 是 一 个 学 生 ?”,“ax 十 by”,“abcdef”,“this is a …?”， 
“53 十 24 一 77”,“W(5,3)”,“1988?” 

以 上 均 是 正确 的 字符 串 常量 。 在 书写 字符 串 常量 时 ,引号 必 
须 成 对 使 用 。 如 “ax 十 b 和 ax 十 b” 都 不 是 正确 的 字符 串 常量 , 因 
为 它们 各 自 都 只 有 一 个 引号 。 字 符 串 常量 的 值 是 指 两 个 引号 之 
间 的 字符 (包括 字符 间 可 能 有 的 空格 ) 。 如 “He is a student” 字 符 
串 的 值 是 He is a student 。 

3. 逻辑 常量 

BASIC 语言 中 还 有 一 种 量 , 它 专门 用 于 描述 某 种 条 件 是 否 
成 立 。 这 种 量 称 为 逻辑 常量 , 它 用 于 代表 真 或 假 。 在 计算 机 内 部 ， 
通常 用 1 代表 真 , 用 0 代表 假 。 


2. 3. 2 变量 


在 数学 中 我 们 常常 用 X,\Y 等 字母 来 表示 一 些 未 知 的 量 。 这 
种 未 知 量 其 值 是 可 以 变化 的 。 例 如 X, 在 某 种 情况 下 其 值 可 以 是 
3. 125 ,在 另 一 种 情况 下 它 又 可 以 是 193. 24。 类 似 X.Y 的 这 种 
未 知 量 ,在 BASIC 语言 中 称 为 变量 。 根据 变量 的 取 值 情 况 ,变量 
又 可 以 分 为 数值 型 变量 .字符 串 变 量 和 逻辑 型 变量 .数值 型 变量 
只 能 取 数 值 为 其 值 ,字符 串 变量 只 能 取 字 符 串 为 其 值 ,逻辑 型 变 
量 只 能 取 真 或 假 值 为 其 值 。 

在 BASIC 语言 中 ,如 何 表 示 常 量 和 变量 呢 ? 表示 常量 很 直 
观 , 只 需 把 常量 写 在 需要 的 地 方 就 行 了 .而 要 表示 变量 就 必须 先 
给 变量 取 个 名 字 ,我 们 称 为 变量 名 。 变 量 名 是 用 字母 开头 的 字母 
或 数字 的 序列 。 例 如 前 面 的 A,B,H 就 是 三 个 不 同 的 变量 名 。 

例 2.4 X,Y,Xl,Y5,AB,H,S,T1 
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这 些 都 是 正确 的 变量 名 。 而 A 一 5,X)3. 5,T 十 5 都 不 是 正 
确 的 变量 名 。 在 给 变量 取 名 时 必须 注意 以 下 几 点 : 

中 变量 名 必须 用 字母 开头 ,其 后 可 以 紧 跟 一 个 字母 或 一 个 
数字 符号 .如果 一 个 变量 名 超过 了 两 个 字符 ,那么 只 有 前 面 两 个 
字符 有 意义 ,如 ABD 和 ABCDE, 均 把 AB 作为 变量 名 ,因而 
ABD 和 ABCDE 实际 上 是 同一 个 变量 名 。 

@ 变 量 名 的 组 成 符号 除了 英文 字母 和 数字 符号 以 外 ,不 能 
夹杂 其 它 字 符 。 初 学 者 容易 忽视 的 是 常常 在 变量 名 中 夹杂 空格 ， 
这 是 不 正确 的 。 也 可 以 直接 用 汉字 作 变 量 名 。 

GOBASIC 保留 字 不 能 再 用 作 变 量 名 。 

只 要 遵守 以 上 规则 ,对 变量 的 取 名 就 是 自由 的 了 .建议 在 给 
变量 取 名 时 最 好 有 一 定 的 含义 。 如 时 间 用 工 ,高 度 用 H, 面 积 用 
S 等 等 ,使 人 们 一 目 了 然 。 


2.3.3 数据 类 型 


根据 变量 取 值 的 范围 ,变量 又 可 以 分 为 三 种 : 实 型 变量 、 整 
型 变量 和 字符 型 变量 (或 称 串 变量 ) 实 型 变量 取 值 为 实数 , 即 带 
有 小 数 或 指数 形式 的 数值 . 整 型 变量 取 值 只 能 是 整数 , 即 仅 由 数 
字 \ 十 .一 符号 组 成 的 数 。 串 型 变量 只 能 取 值 为 字符 串 。 

1 数据 类 型 的 标志 

对 于 一 个 变量 名 ， 0 在 构造 变量 名 
时 可 以 给 出 一 定 的 标志 。BASIC 语言 约定 如 下 :如果 一 个 变量 名 
之 后 紧 跟 一 en 如 和 只,X2 
等 如果 变 量 名 之 后 紧 跟 的 是 $ 标 志 , 则 意味 着 该 变量 是 串 型 变 
量 。 一 个 实 型 变量 就 是 变量 名 本 身 , 即 变量 名 之 后 不 跟 任 何 标 


St 
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一 个 变量 究竟 应 该 属于 什么 类 型 ,实际 使 用 中 不 难 划分 .总 
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的 原则 是 :如 果 一 个 变量 要 参与 算术 的 加 、 减 . 乘 、 除 以 及 乘 方 运 
算 , 那 么 肯定 不 能 是 串 型 变量 ,多 数 情 况 下 还 是 取 实 型 变量 为 
好 , 若 取 整 型 变量 ,运算 结果 的 小 数 部 分 有 可 能 被 丢掉 。 

2. 数值 的 表示 范围 

对 于 一 台 具 体 的 机 器 来 说 ,表示 数值 的 大 小 总 是 有 限 的 。 但 
不 同类 型 的 机 器 能 够 表示 的 数值 范围 的 大 小 亦 不 相同 。 对 于 中 
华 学 习 机 CEC- I 来 说 ,其 表示 数值 的 范围 如 下 : 

[实数 | 委 103 ,如 果实 际 数值 的 绝对 值 大 于 108, 则 会 装 不 
下 ,这 种 情况 称 为 上 液 。 如 果 数 值 的 绝对 值 小 于 10”, 则 当成 溢 
出 处 理 , 这 种 情况 称 为 下 溢 。 

| 整数 | 委 32767 ,整数 取 值 只 能 在 一 32767 和 十 32767 之 间 。 

串 型 变量 取 值 至 多 256 个 字符 。 当 然 可 以 一 个 字符 也 没 
有 ,这 种 串 型 变量 称 为 空 串 。 

为 清楚 起 见 ,请 看 表 2. 1。 

表 2.1 数据 的 类 型 标志 及 其 取 值 范围 


1B% | 委 32767 


0 一 255 个 字符 


2.3.4 数据 的 输出 格式 


在 CEC-BASIC 中 ,系统 根据 数据 的 取 值 情况 ,自动 确定 数 
值 数据 的 输出 格式 ,其 原则 是 : | 
1. 如 果 输 出 的 是 一 个 负数 , 则 在 数据 前 面 带 一 个 负 号 
“一 ”。 如 果 是 正 数 , 则 输出 数据 不 带 任何 符号 ( 即 是 一 个 无 符号 
数 , 它 表 示 一 个 正 数 ) 。 
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2. 若 0 和 | 数值 | 委 999999999 上 且 为 整数 , 则 作为 整数 原样 
输出 。 

3. 若 0.01 过 | 数值 | 秋 999999999. 2 是 为 实数 , 则 按 实数 原 
样 输出 。 

4. 若 数值 不 属于 2,3 种 情况 , 则 按 指数 形式 (又 称 科学 计 
数 法 ) 输 出 。 输 出 格式 为 ， 

SX. XXXXXXXXEVTT 

其 中 :S 是 数 的 符号 ( 正 号 或 负 号 ) ,可 以 是 十 或 一 。X 为 0 一 
9 之 间 的 数字 ,, 为 小 数 点 ,E 为 底数 10,V 是 指数 的 符号 (十 或 
一 ) ,ITT 为 指数 值 。 

例 2.5 若 A 王 0.000009, 输 出 格式 为 9E 一 6 

若 B=1234567899999999 ,输出 为 1. 23456789E 十 15 
需要 特别 注意 的 是 : 

(DBASIC 输出 数据 时 至 多 只 能 达到 9 位 有 效 数 字 , 输 入 数 
据 时 可 以 超过 9 位 数字 。 

@BASIC 对 计算 结果 的 舍 入 原则 是 : 当 不 足 9 位 时 给 出 精 
确 值 , 达 到 或 超过 9 位 时 给 出 9 位 数 的 近似 值 ,在 第 10 位 上 进 
行 四 伟 五 入 。 

@@ 当 一 个 数 被 转换 成 整 型 数 时 , 则 取 小 于 或 等 于 该 数 的 最 
大 整数 作为 转换 后 的 整数 结果 。 因 此 ,0. 999 转换 成 整 型 数 是 
0, 而 一 0. 05 转换 成 整数 则 是 一 1。 


2.4 函数 


为 使 实际 应 用 方便 起 见 ,BASIC 把 诸如 数学 中 的 三 角 函 数 ， 
自然 对 数 ,开平 方 , 求 绝对 值 等 运算 用 专门 的 符号 表示 出 来 ,这 
就 叫 函数 。 当 用 户 需 要 时 就 在 程序 中 直接 调用 。 根 据 函 数 的 用 
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途 可 分 为 数学 函数 .字符 串 处 理 函 数 、 类 型 转换 函数 等 等 ,详细 
情况 请 参见 第 七 章 有 关节 段 。 函 数 的 一 般 形 式 如 下 : 

《函数 名 》(( 形 式 参 数 )) ,其 中 国 数 名 是 BASIC 语言 给 函数 
取 的 名 字 ,形式 参数 是 调用 时 必须 提供 的 参数 。 由 于 这 里 仅 起 形 
式 上 的 作用 ,因而 称 为 形 参 ,有 些 资料 又 称 哑 元 。 调 用 时 实际 提 
供 的 参数 才 起 真正 的 作用 ,因而 称 为 实在 参数 (简称 实 参 ) ,又 称 
实 元 。 下 面 列 出 常用 的 几 个 函数 ， 

SINCX) 一 求 SINX 的 值 。 

COS(X) 一 求 COSX 的 值 。 

ABS(CX) 一 求 X 的 绝对 值 。 

SQR (X) 一 求 正 数 X 的 平方 根 (~/X )。 

EXP(X) 一 求 e 的 值 。 

LOG(X) 一 求 X 的 自然 对 数值 。 

INT(CX) 一 取 X 的 整数 部 分 值 。 

实际 应 用 中 要 注意 : 

中 凡是 能 够 用 函数 来 表示 的 运算 最 好 用 冰 数 运算 。 

四 所 有 三 角 函 数 的 参数 都 用 弧度 表示 。 如 果 提 供 的 是 角度 ， 
那么 必须 转换 成 缴 度 ,转换 公式 是 :r 一 180"。 

G@X 可 以 是 表达 式 ( 人 参见 下 一 节 ) 。 

曲 圆 括号 不 能 少 掉 。 

@ 函 数 运算 后 一 定 能 够 得 到 一 个 值 。 

@@ 由 BASIC 语言 提供 的 函数 称 为 标准 函数 。 


2.5 表达 式 
我 们 已 经 讨论 了 常量 ,变量 和 函数 .如 果 把 这 些 量 用 相应 的 


运算 符 按 一 定 的 规则 联系 起 来 就 构成 BASIC 语言 中 所 谓 的 表 
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达 式 。 表 达 式 可 以 分 为 四 种 :算术 表达 式 , 关 系 表达 式 , 逻 辑 表 达 
式 和 字符 串 表达 式 。 


2.5.1 运算 符 及 其 优先 级 别 


1. 算术 运算 符 

BASIC 中 要 用 到 的 算术 运算 符 有 : 

村 和 人 

加 ， 减 , 乘 ， 除 , 乘 方 

算术 运算 符 可 以 用 来 构成 算术 表达 式 以 进行 算术 运算 ,其 
运算 规则 与 数学 中 一 样 。 首 先进 行 乘 方 , 其 次 乘除 ,最 后 进行 加 
减 运算 。 如 果 有 圆 括号 ,那么 括号 优先 。 同 级 运算 从 左 到 右 依次 
进行 。 算 术 运 算 的 结果 必定 是 一 个 数值 。 

2. 关系 运算 符 
<<， 所 = 或 =<<, 王 ， >， >= 或 =>， < 或 这 << 
小 于 ,小 于 或 等 于 ,等 于 ,大 于 ,大 于 或 等 于 ， 不 等 于 

关系 运算 符 用 以 对 两 个 算术 项 进行 比较 ,结果 产生 一 个 逻 
辑 值 真 或 者 假 。CEC-BASIC 用 1 代表 真 , 用 0 代表 假 。 由 于 BA- 
SIC 中 不 允许 把 几 个 关系 运算 符 连 在 一 起 ,因而 不 存在 优先 级 
关系 ,如 a>b>c 一 d 的 写法 是 不 正确 的 , 它 必 须 换 成 逻辑 表达 
式 来 书写 。 


3 轩 辑 运算 符 

BASIC 的 逻辑 运算 符 有 : 
NOT AND OR 
非 与 或 


逻辑 运算 符 用 于 进行 逻辑 运算 ,运算 结果 仍然 是 一 个 逻辑 

值 真 或 假 ,运算 规则 如 下 表 所 示 。 假设 A.B 是 取 值 为 真 (1) 或 假 

0) 的 逻辑 变量 ,A 和 了 B 的 逻辑 运算 结果 也 示 于 表 2. 2 中 。 其 中 
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1 代表 真 值 ,0 代表 假 值 。 
表 2.2 逻辑 运算 


从 表 2. 2 的 运算 结果 可 以 看 出 逻辑 运算 符 的 运算 规则 有 如 
下 的 规律 

NOT A 是 对 和 A 的 否定 .如 果 A 为 真 ,那么 NOT A 的 结果 是 
假 , 如 果 和 为 假 ,NOT A 的 结果 为 真 。 

对 于 AND 运算 ,只 有 当 AND 的 两 端 同时 为 真 ( 即 A 为 真 B 
为 真 ) 时 ,A AND B 的 结果 才 为 真 , 其 余 情 况 均 为 假 。 

对 于 OR 运算 ,只 有 当 OR 两 端的 值 同时 为 假 时 ,A OR B 的 
值 才 为 假 , 其 余 情 况 均 为 真 。 

逻辑 运算 符 的 优先 级 别 是 : NOT AND OR 。 


2. 5. 2 ”算术 表达 式 


1. 什么 叫 算术 表达 式 ? 

算术 表达 式 是 指 一 个 数值 常量 数值 型 变量 或 算术 函数 以 
及 用 算术 运算 符 十 一 * /” 和 圆 括号 () 将 这 些 量 按 一 定 规 则 连 
接 而 成 的 式 子 ,我们 都 可 以 称 之 为 算术 表达 式 。 一 个 数值 常量 或 
数值 变量 或 算术 函数 是 算术 表达 式 的 特殊 情况 .为 了 区 分 ,有 时 
将 它们 称 为 简单 算术 表达 式 , 而 把 带 有 运算 符 的 表达 式 称 为 复 
杂 算 术 表 达 式 。 在 不 致 混淆 的 情况 下 一 律 称 为 算术 表达 式 。 

例 2.6 1988, 一 3.72,1.534E 十 10,X,Y1,A%,SIN(3) 

。34 。 


这 些 都 是 简单 算术 表达 式 的 例子 。 

例 2.7 BxB 一 4x*AxC, (1 十 SINCX)” 2/(Y*Y 十 SQR(1 
十 2xY 十 5xY”^ 5))， 

这 是 两 个 复杂 算术 表达 式 。 从 理论 上 来 说 ,利用 算术 运算 符 
和 圆 括号 ,我们 可 以 把 一 个 算术 表达 式 构 造 得 非常 复杂 。 

2. 算术 表达 式 的 书写 规则 

利用 BASIC 语言 来 进行 数值 计算 ,必须 将 数学 式 子 写成 
BASIC 所 允许 的 算术 表达 式 的 形式 。 其 书写 原则 是 ， 

@ 把 乘 号 *X ”写成 “* ”, 并 且 不 能 省 写 或 简写 。 除 号 “一 ” 写 
成 </”。 

例 2.8 将 下 列 数学 式 写成 BASIC 算术 表达 式 。 

(A 十 B)、/X2 十 1 

C 二 -D 

一 (A 十 B).x* SQR(CXxX 十 1)/(C 十 D) 

@@ 注 意 成 对 使 用 圆 括号 ,不 论 需要 用 到 多 少 重 括号 ， 算 术 
表达 式 中 只 能 使 用 圆 括号 () 。 

例 2.9 将 下 列 数学 式 写 成 算术 表达 式 。 


3 
(人 ) 二 ((A 十 B)/CXTY)) > 3 


图 数学 式 中 用 到 的 三 角 函 数 . 自 然 对 数 、.e* 指数 函数 、 开 平 
方 根 等 运算 ,都 必须 换 成 BASIC 的 相应 函数 表达 式 。 

例 2.10 将 下 列 数学 式 写成 算术 表达 式 。 

Sines 十 Inbx 

一 a 人/X 十 A 十 1 

之 ABS(C(CSINCEXP(A x* X)) 十 LOG(B*X))/( 一 Ax SQR (X 
十 A) 十 1)) 

人 曲 区 分 容易 混淆 的 字符 。 如 字母 I 和 数字 1, 字 母 0 和 数字 
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0 等 。 
3. 算术 表达 式 的 运算 规则 
算术 表达 式 一 经 确定 ,就 可 以 按 给 定 的 规则 进行 运算 以 得 
出 一 个 具体 的 数值 。BASIC 的 算术 表达 式 运 算 规 则 同 数学 中 一 
样 :括号 优先 ,有 多 重 括号 时 由 内 到 外 。 乘 方 .乘除 .最 后 是 加 减 
运算 。 同 级 运算 按 从 左 到 右 原则 处 理 。 

4. 算术 表达 式 的 值 

算术 表达 式 的 值 就 是 将 变量 值 代入 算术 表达 式 后 按 给 定 运 
算 规则 运算 而 得 到 的 代数 值 .这 个 值 必定 是 一 个 数值 , 它 的 数据 
类 型 一 般 来 说 是 实 型 。 


2. 5.3 关系 表达 式 


关系 表达 式 是 用 关系 运算 符 将 两 个 算术 表达 式 或 字符 串 表 
达 式 连接 而 成 的 式 子 。 其 一 般 形 式 如 下 : 

《算术 表达 式 )( 关 系 运算 符 )( 算 末 表 达 式 或 ( 串 表 达 式 = 
〈 串 表达 式 》 

例 2.11 BxB 一 4x*AxC>0,X>Y,H 一 一 1.72,“NO” 一 
<YvESy 

这 些 都 是 正确 的 关系 表达 式 的 例子 。 而 A 之 B>C 却 不 是 正 
确 的 关系 表达 式 。 它 实质 上 应 该 写成 逻辑 表达 式 的 形式 。 

在 关系 表达 式 中 ,首先 进行 算术 运算 ,得 到 算术 表达 式 的 结 
果 后 再 进行 比较 ,最 后 得 出 一 个 逻辑 值 。 在 例 2. 11 中 ,假设 A 
一 1,B 一 2,C 一 3, 那 么 将 A,B,C 的 值 代 入 关系 表达 式 Bx*B 一 4 
x* AxC>0 中 得 :2*2 一 4x*Tx3>0, 显 然 其 值 为 假 (0) 。 这 就 是 
说 ,在 特定 条 件 (A 王 1,B 王 2,C 一 3) 下,Bx*B 一 4x*AxC>0 是 不 
成 立 的 。 关 系 表 达 式 通常 用 于 构造 某 种 选择 条 件 。 

在 所 有 关系 运算 符 中 ,对 等 号 “一 ”的 使 用 要 特别 小 心 .。 有 时 
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我 们 认为 不 等 的 数 ( 如 10-” 和 0), 由 于 机 内 转换 或 其 它 处 理 
等 原因 而 造成 两 个 数 的 相等 ,导致 条 件 的 满足 或 不 满足 ,致使 发 
生 我 们 难以 料及 的 错误 。 

对 于 用 “= "连接 的 两 个 字符 串 , 只 要 等 号 两 端的 字符 相同 ， 
则 其 结果 为 真 ,否则 为 假 。 如 :“ABC” 一 “ABC 的 值 为 真 ,而 
“ABC 一 “XYZ2” 的 值 为 假 。 


2.5.4 逻辑 表达 式 


一 个 关系 表达 式 或 用 逻辑 运算 符 NOT AND 、OR 将 关系 表 
达 式 按 一 定 规则 连接 而 成 的 式 子 都 称 为 逮 辑 表达 式 。 

例 2.12  A>B AND C<D,NOT X=Y AND BxB 一 4x 和 A 
xC>>0。 

这 些 都 是 正确 的 逻辑 表达 式 。 关 系 表 达 式 仅 是 逻辑 表达 式 
的 特殊 情况 。 对 于 数学 中 的 A 之 B>C 的 写法 ,写成 逻辑 表达 式 
应 该 是 A 之 B AND B 之 C。 

在 一 个 比较 复杂 的 逻辑 表达 式 中 ,可 能 同时 包含 多 种 运算 
符 , 其 运算 优先 级 是 这 样 规定 的 :首先 进行 算术 运算 ,其 次 进行 
关系 运算 ,最 后 进行 逻辑 运算 。 在 各 自 的 运算 中 又 按 各 自 规定 的 
优先 级 进行 运算 。 逻 辑 表达 式 最 终 一 定 能 够 得 出 一 个 逻辑 值 。 

例 2.13 求 下 列 逻 辑 表达 式 的 值 ( 设 A 王 1,B 王 2,C 一 3)。 

BxB 一 4x*AxC>0ANDCNOT 5>A) OR (A 十 B) 

x (C 一 B)<< >>B” 3 AND A 十 B 之 AxB 

之 2x* 2 一 4x 1x3>0AND(ONOT 5>>1)OR(1 十 2) * (3 一 2) 

一 >2” 3AND 1 十 2 这 1x 2 

全 -8>0 AND(NOT 5>>1)OR 3<< 二 8 AND 3 二 2 

一 0 AND NOT 1 OR 1 AND 1 

之 0 AND 0OR 1 AND 1 
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之 1 

按照 给 定 的 运算 规则 运算 后 其 结果 为 逻辑 值 真 (1) 。 

需要 强调 指出 的 是 :由 于 系统 用 数字 1 代表 真 ,用 0 来 表示 
假 , 因 而 在 算术 表达 式 中 夹杂 逻辑 表达 式 是 可 以 的 ,计算 机 能 够 
按 规 则 计算 出 正确 的 结果 。 如 : 

假设 : A=1,B 王 2,C 一 3, 则 

Ax(A<C)*5 十 10x*(C 二 B) 一 (BxB 一 4 类 AxC0) 

之 1x* (1<3)*5 十 10x*(3 之 2) 一 (2x*2 一 4xTx3 一 0) 

之 1x1x5 十 10x*1 一 0 

之 15 

注意 :如 果 逻 辑 表达 式 不 带 圆 括号 ,那么 首先 进行 算术 运 
算 , 得 到 的 结果 再 进行 关系 运算 或 逻辑 运算 .上 式 中 由 于 有 圆 括 
号 ,因而 应 当 首先 计算 ,得 到 结果 值 1 或 0 再 与 算术 表达 式 进行 
加 \ 减 . 乘 、 除 和 乘 方 运算 。 


2. 5.5 字符 串 表 达 式 


字符 串 表 达 式 比较 简单 , 它 只 需 用 串 运算 符 “ 十 ?将 两 个 字 
符 串 (或 串 变 量 ) 或 串 函 数 连接 起 来 ,从 而 生成 一 个 新 的 字符 串 。 
例 2.14 将 字符 串 “ABCD” 和 ”“XYZ? 连 接 起 来 。 
“ABCD” 十 “XYZ?” 生 成 一 个 新 串 “ABCDXYZ”。 


2.6 什么 叫 BASIC 程序 


前 面 比较 详细 地 介绍 了 BASIC 语言 中 经 常 涉及 到 的 常量 、 
变量 .字符 串 、 函 数 和 表达 式 等 基本 概念 。 下 面 再 来 说 明 什 么 是 
BASIC 程序 。 所 谓 BASIC 程序 ,就 是 用 BASIC 语句 书 写 的 完成 
某 种 计算 或 事务 管理 的 详细 步骤 ,请 看 下 面 的 例子 。 
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例 2. 15 求 一 元 二 次 方程 ax? 十 bx 十 一 0 的 根 。 
由 数学 知识 我 们 知道 ,求解 一 元 二 次 方程 根 的 公式 为 ; 
二 二 3 一 人 ee ,判别 式 必 一 4ac 如 下 ; 


21,2 一 


> 过 0， 则 有 两 个 不 同 实 根 。 
若 旦 一 4ao4 一 0， 则 有 两 个 相同 实 根 。 
<0， 则 有 共 斩 虚 根 。 


根据 一 元 二 次 方程 的 求解 方法 , 编 成 如 下 的 BASIC 程序 : 
19 ， INPUT h,B,C 
286D=BrB- 叶 水 自 水 局 
38 IF n >》8 THEN 89 
4d9 IF D = 6THEN 116 
59 X1=- -B/(2*h) 
69 MX2 = SQR (- D)/ (2*h)》 
65 PRINT“ 共 恩 虚 根 ” 
798 60T0 136 
890 X1=(-B+ S9R (D))/(2*h) 
9 X2=(-B- SGQR (D))/(2*R) 
95 PRINT “两 个 不 等 实 根 ” 
198 6G0T0 136 
118 X1 = -BV/(2*h) 
126 X2 = XI1 
125 PRINT “两 个 相等 实 根 "” 
138 PRINT “"X1=…5X13 7"X2="5X23 
148 “END 


。 39 。 


]RUN 
?5,6,4 
巷 虚 根 
X1=-.6 X2=.663324958 
从 上 例 可 以 看 出 ,一 个 BASIC 程序 包括 了 这 样 几 个 部 分 ; 
1. 语句 行 号 
这 是 每 个 语句 的 开始 符号 。 它 由 至 多 5 位 (0 一 63999 之 间 ) 
的 无 符号 整数 组 成 ,语句 行 号 数值 的 小 和 大 ,就 代表 了 语句 在 程 
序 中 的 前 与 后 ,也 表示 语句 执行 的 先 与 后 ,一 般 来 说 ,BASIC 程 
序 从 行 号 最 小 的 语句 开始 依次 执行 。 前 后 两 个 行 号 并 不 要 求 连 
续 。 
2. 语句 
语句 是 BASIC 用 以 完成 操作 动作 的 一 些 有 专门 意义 的 字 
符 序列 。 如 INPUT 表示 输入 ,PRINT 表示 打印 输出 ,语句 必须 按 
照 BASIC 语言 的 语法 规则 来 书写 ,而 书写 语句 的 顺序 要 按 完成 
具体 任务 的 要 求 依 次 (体现 在 语句 行 号 的 小 和 大 上 面 ) 书 写 。 在 
书写 语句 时 ,可 以 一 个 语句 占用 一 个 书写 行 ,也 可 以 几 个 语句 写 
在 同一 行 上 。 如 110 和 120 两 句 , 可 以 写 在 一 行 上 : 
110 X1 王 一 B/(2x* A) : X2 一 Xu/ 
3. 回 车 键 
如 果 要 把 程序 输入 到 机 内 ,那么 每 个 语句 行 输入 完 后 必须 
殴 一 个 回 车 键 区 eturn] 。 为 写 起 来 方便 ,我 们 用 上 必 表 示 回 车 键 。 回 
车 键 是 一 个 语句 行 完结 的 标志 。 在 书写 程序 时 可 以 不 写 巡 ,但 输 
入 程序 时 必须 敲 上 键 。 
4. 程序 结束 标志 END 
在 一 个 程序 中 ,程序 的 结束 标志 END 可 写 也 可 不 写 ,这 不 
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影响 程序 的 正确 性 (但 用 子 程序 时 有 例外 )。 严 格 说 来 ,END 不 
是 BASIC 的 语句 , 它 是 操作 系统 提供 的 实用 命令 。 

5. 源 程序 

源 程序 就 是 用 BASIC 语言 书写 的 程序 , 亦 称 BASIC 源 程 
序 , 或 称 源 程 序 ,通常 简称 为 程序 。 从 以 上 的 例子 我 们 可 以 得 出 
如 下 的 结论 : 

一 个 程序 由 若干 个 语句 组 成 ;一 个 语句 由 若干 单词 组 成 (这 
些 单词 包括 保留 字 、 变 量 、 常 数 、 函 数 或 表达 式 ); 一 个 单词 又 由 
若干 字符 组 成 。 这 同 自然 语言 一 样 ,字符 组 成 字 , 字 组 成 句 , 句 组 
成 文 。 一 个 程序 就 相当 于 是 用 BASIC 语言 写 的 一 篇 文章 。 我 们 
研究 BASIC 语言 ,实际 就 是 讨论 由 字 组 成 句 , 由 名 组 成 文 的 规 
则 。 

在 编写 和 输入 BASIC 程序 时 必须 注意 : 

@ 一 个 语句 总 是 以 行 号 开始 ,以 巡 作为 结束 。 

加 语句 行 号 之 间 最 好 留 有 一 定 的 间隔 数 ,以 利于 揪 入 新 行 。 
如 10,20,30 行 号 比 10,11,12,13 行 号 取得 好 。 

图 如 果 一 个 语句 行 号 上 需要 写 多 个 语句 ,那么 语句 忆 必 须 
用 冒号 ”:” 隅 开 。 

人 一 个 语句 行 连同 字符 和 空格 不 能 超过 239 个 字符 。 如 果 
一 个 语句 可 能 超过 239 个 字符 ,那么 可 以 拆 成 多 个 语句 。 

@@ 用 于 构成 变量 名 、 保 留 字 和 命令 中 的 字符 通常 用 大 写 。 

@@BASIC 程序 的 执行 总 是 从 最 小 的 行 号 开始 依次 执行 ( 除 
非 有 转向 ) 。 因 而 程序 中 的 行 号 不 能 随便 乱 写 。 


2.7 BASIC 程序 的 输入 


输入 BASIC 程序 之 前 必须 事先 进入 BASIC 系统 。 
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2.7.1 如 何 进 入 BASIC 系统 


这 里 就 输入 程序 前 如 何 进入 系统 给 出 简要 说 明 。 

1. 固化 BASIC 系统 的 启动 

请 先 按 第 一 章 介绍 的 方法 连接 好 中 华 学 习 机 的 硬件 系统 。 
打开 显示 器 电源 ,再 打开 主机 电源 开关 。 屏 幕 显示 
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VERSION 1.1 


] 口 


二 


图 2.1 系统 进入 BASIC 状态 

这 时 主机 自动 进入 西 文 BASIC 状态 .。“]? 是 BASIC 系统 的 
提示 符 , 光 标 紧 跟 其 后 闪 动 ,表示 机 器 已 作 好 准备 接收 输入 字 
符 。 

2. 用 磁盘 操作 系统 来 启动 BASIC 系统 

前 面 介 绍 的 是 直接 在 主机 上 启动 固化 BASIC 语言 。 如 果 我 
们 要 用 磁盘 上 的 操作 系统 DOS 3. 3 来 启动 ,那么 可 按 如 下 步骤 
操作 

打开 磁盘 驱动 器 中 央 的 盖子 ,把 DOS 3. 3 的 软盘 带 有 标 
签 的 一 面 朝 上 ,试探 性 地 轻 轻 揪 入 到 驱动 器 中 ,然后 关 好 驱动 器 
的 小 门 。 

@ 打 开 显示 器 和 主机 电源 , 稍 候 , 屏 幕 显示 ， 


42 


DOS VERSION 3. 3 08/25/80 
APPLE I PLUS OR ROMCARD SYSTEM MASTER 


(LOADING INTEGER INTO LANGUAGE CARD) 


] 口 
图 2.2 用 Dos 3.3 进入 BASIC 状态 

此 时 系统 进入 BASIC 状态 。“]? 表 示 可 以 输入 字符 了 .以 上 
启动 方式 称 为 冷 启 动 。 

图 如 果 开 机 之 前 没有 把 DOS 3. 3 软盘 插入 到 驱动 器 中 , 那 
么 系统 直接 从 主机 进入 固化 BASIC 状态 。 如 果 这 时 需要 装 入 
DOS 3. 3 操作 系统 ,那么 把 DOS 3. 3 软盘 插入 驱动 器 后 ,在 “]” 
提示 符 后 敲 入 : 

]PR#6w, 这 时 仍然 可 以 进入 BASIC 状态 ,屏幕 显示 仍 如 
图 2. 2 所 示 。( 这 称 为 热 启 动 ) 

3. 系统 复位 

如 果 主 机 电源 已 经 打开 ,可 以 用 殴 |Ctrj|- 区 eset| 键 ( 先 按 住 
[ctrl 键 再 敲 区 esed 键 ) 的 办 法 启动 系统 .这 通常 也 称 为 热 启动 , 亦 


叫 系统 复位 。 
2.7.2 ”中西 文 方式 的 转换 


系统 启动 以 后 便 自动 进入 西 文 使 用 方式 。 如 果 我 们 希望 进 
入 中 文 方式 ,那么 最 简单 的 方法 就 是 矿 键盘 上 的 | 中 文 | 键 ,屏幕 
显示 如 图 2. 3 所 示 。 
这 时 系统 便 处 于 中 文 使 用 方式 下 的 字母 输入 状态 。 如 果 要 
在 中 文 方式 下 输入 非 汉 字 的 字符 ,那么 就 必须 处 于 “字母 ?状态 
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图 2.3 

下 。 如 果 需 要 输入 汉字 ,就 必须 转 到 相应 的 汉字 输入 方式 。 下 面 
三 个 键 经 常用 到 

F1 一 一 允许 在 中 文 方式 下 输入 字母 和 字符 。 

F2 一 一 允许 用 汉语 拼音 方式 输入 汉字 。 

F3 一 一 允许 用 区 位 码 方式 输入 汉字 。 

事实 上 ,进入 中 文系 统 有 三 种 方式 : 

1. 直接 蔽 键盘 上 的 | 中 文 | 键 。 这 适合 在 对 话 方式 下 使 用 。 

2. 在 BASIC 或 DOS 状态 下 融 入 PR#3。 如 果 是 在 程序 中 
希望 进入 中 文系 统 , 那 么 必须 用 语句 的 形式 写成 :( 行 号 》 PR#3 
: PTINT 。 

3. 在 监控 程序 政 3 CTRL 十 P 或 3 CTRL 十 K 键 也 可 以 进 
入 中 文系 统 。 退 出 中 文系 统 也 有 三 种 方式 ; 

1. 直接 散 键 盘 上 的 [ 西 文 | 键 。 

2. 在 BASIC 程序 中 用 ( 行 号 PRINT CHR $ (17) : PRINT 。 

3. 在 监控 方式 下 鼓 C33AG 命令 。 

不 论 是 进入 还 是 退出 中 文系 统 , 内 存 的 程序 均 不 受 影响 。 


2.7.3 如 何 输入 程序 
1 西 文字 符 的 输入 
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如 果 我 们 仔细 观察 键盘 就 会 发 现 ,有 的 键 上 只 标 有 一 个 字 
符 , 如 26 个 字母 键 就 是 如 此 。 而 有 的 键 上 却 标 有 两 个 字符 ,如 


10 个 数字 键 , 除 了 标 有 数字 以 外 ,还 标 有 其 它 字 符 。 则 地 ,上 


部 标的 是 * ,下 部 标的 却 是 8。 那 么 散 该 键 时 如 何 区 分 呢 ? 系统 
是 这 样 规 定 的 :如 果 待 输入 的 符号 所 在 的 键 上 只 有 一 个 符号 或 
是 键 的 下 部 符号 ,那么 就 直接 骆 键 。 如 要 输入 AB32, 就 直接 依 


并 
次 贡 四 加 |。 四 个 她 , 斌 显 示 的 凡是 AB32。 这 种 情况 称 为 


见 码 敲 键 。 如 果 待 输入 的 字符 是 键 的 上 部 字符 ,那么 在 敲 该 字符 
键 时 必须 先 按 住 换 档 键 |Shitdl ,然后 再 敲 上 部 字符 所 在 键 。 如 要 


输入 字符 * .就 必 须 先 拷 信 E 刍 ,然后 天 |， 这 种 情况 


称 为 换 档 光 键 。 成 E 本 | 凡是 需要 输入 上 部 字符 时 都 必 


须 用 换 档 敲 键 法 。 输 入 单个 字符 或 下 部 字符 时 一 律 用 见 码 敲 键 
法 。 为 便于 读者 练习 ,我 们 以 下 列 程序 的 输入 为 例 ; 

10 INPUT A，B，H zz 

20 S 王 (A 十 B) * H/2u] 

30 PRINT Su/ 


项 键 动作 如 下 (| | 表示 空格 键 ) : 

DO=qOOO 
aoaaca 
加 = 
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国 国 国 四 ls 用 LE 
? | @ 
BDIDDIDIGAG 


其 中 每 行 开头 出 现 的 “]” 是 系统 提示 符 , 我 们 不 能 敲 入 。 

2. 汉字 的 输入 

中 华 学 习 机 上 目前 提供 了 三 种 输入 汉字 的 方法 。 一 是 汉语 

音 , 二 是 区 位 码 , 三 是 五 笔 字 型 输入 法 ( 见 第 二 册 《 汉 字 处 理 与 

数据 库 技 术 》) ,这 里 简介 拼音 输入 法 。 

我 们 以 输入 下 列 程序 为 例 ， 

10 PRINT “中 华 学 习 机 ” 

20 END kx 

首先 , 殴 [ 中 文 | 键 进入 中 文 方式 后 系统 自动 处 于 “字母 ? 状 
态 ,我 们 可 以 输入 行 号 10 和 PRINT "。 下 面 要 输入 汉字 ,因而 散 
攻 : 键 进入 拼音 状态 , 歼 入 “中 ?的 拼音 ZH ,屏幕 显示 ， 

拼音 :z 1 这 2 主 3 中 4 种 5 着 6 和 争 

一 看 便 知 道 需 要 的 “中 ” 字 出 现 了 。 这 时 只 要 散 汉 字 前 面 的 
序号 3, 就 把 “中 ” 字 取 到 内 存 并 显示 在 屏幕 的 相应 位 置 上 。 凡是 
需要 用 拼音 输入 汉字 都 必须 敲 E;| ,使 其 转 到 拼音 输入 法 的 开始 
状态 。 而 凡是 输入 其 它 符号 都 必须 殴 区 | 键 使 其 回 到 字符 状态 。 
上 面 的 叙述 过 程 可 以 用 下 面 的 散 键 动作 来 表示 : 

] 作 文 
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) 中 
日 口 目 卓 
国 回回 国 国 国 国 EBD 
之 间 和 人 
RETURN 
汪 ES 


汉字 的 查找 输入 过 程 如 下 : 

状态 键 状态 拼音 供 选 择 的 汉字 项 键 取 字 
拼音 : z 1 这 2 主 3 中 4 种 5 着 6 争 风 
拼音 : ,hua 1 花 2 哗 3 华 4 猎 5 滑 6 夯 罗 
拼音 ， x 1 学 2 下 3 小 4 线 5 现 6 人 性 小 
拼音 ， xi 1 袭 2 席 3 习 4 媳 5 喜 6 铣 了 
拼音 j 1 就 2 级 3 阶 4 进 5 加 6 机 ja 
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病夫 示 在 回 章 字 中 继续 碍 技 后 结 汉字 ， 网 | 回 
到 先前 显示 的 汉字 。 

本 节 所 述 内 容 经 常用 到 ,建议 读者 面 对 一 台中 华 学 习 机 , 亲 
自 上 机 练习 。 


问题 与 思考 


1. 为 什么 变量 名 必须 用 字母 开头 ? 
2. 为 什么 算术 表达 式 中 的 乘 号 既 不 能 省 略 也 不 能 简写 ? 
3. 为 什么 要 注意 成 对 使 用 圆 括 号 ? 


习题 二 


1. 分 别 写 出 三 个 不 同 的 数值 常数 和 字符 串 常 数 。 
2. 下 列 字符 序列 哪些 是 正确 的 BASIC 变量 名 ? 
XYZ,S1,END,S 一 1,SQRT,SUM,DATA ,DTE 


3. 写 出 下 列 数据 的 输出 格式 。 
一 328.75, 十 4235,73. 481o5 ,一 1234567892222 


4. 将 下 列 数学 式 写成 BASIC 表达 式 。 


n (n 一 1)? 
由 2 


a+be 8 
加 b。c 


3 
人 @V Ln /1 十 下 一 e3 


人 由 2RSin 了 
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5. 在 机 器 上 练习 下 列 程序 的 输入 。 
10 INPUT A，B，C$ kx 

20 D 王 A 十 Bu 

30 C$ = 我 正在 使 用 计算 机 ?wx- 

40 PRINT C$ ,D 巡 


请 写 出 输入 程序 时 的 贡 键 动作 。 
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第 三 章 ”简单 的 BASIC 程序 


前 已 述 及 ,BASIC 程序 是 由 若干 语句 组 成 的 。 那 么 BASIC 
语言 中 有 些 什么 语句 呢 ? 它们 的 书写 格式 .作用 如 何 呢 ? 如 何 用 
语句 来 编写 程序 呢 ? 从 本 章 起 ,我 们 将 由 浅 入 深 地 介绍 BASIC 
的 一 些 基 本 语句 以 及 如 何 用 这 些 语句 来 编写 完整 的 能 够 在 
CEC-I 机 上 运行 的 程序 。 


3.1 赋值 语句 


在 BASIC 程序 中 ,用 得 最 多 的 语句 可 能 就 是 赋值 语句 了 。 
3.1.1 赋值 语句 的 格式 和 作用 


格式 :LLETJ] 〈 变 量 名 ?= (表达 式 》 

作用 :将 表达 式 的 值 送 到 变量 中 保存 起 来 。 

其 中 :LET 是 赋值 语句 的 标志 ,实际 使 用 中 可 以 省 略 不 写 。 
变量 名 又 称 左 部 变量 , 它 用 于 保存 表达 式 的 值 . 变 量 的 类 型 可 以 
是 整 型 、 实 型 或 串 型 。“= 表示 一 种 传送 动作 。 表达 式 可 以 是 任 
何 合法 的 算术 表达 式 或 关系 表达 式 或 逻辑 表达 式 , 甚 至 也 可 以 
是 字符 串 表 达 式 。 当 然 ，= ”两 端的 数据 类 型 应 当 一 致 。 


例 3.1 求 放弃 的 值 。 


为 便于 读者 练习 ,我 们 写 一 个 完整 的 程序 ( 行 号 之 前 的 “]? 
是 系统 提示 符 , 由 机 器 自动 显示 ,程序 中 不 写 ): 
0 


]10 WwW=3x* SQR(100)/(LOG(3) 十 EXP(2))ul/ 
]20 PRINT“W 一 ”Wu 
]RUNA (以 下 是 运行 结果 ) 
W 一 3.5345396 
个 程序 包含 了 两 个 语句 ,语句 行 号 分 别 为 10 和 20。 我们 
1 LIST 命令 列 出 刚 输入 的 程序 。 其 中 第 10 句 就 是 一 个 赋 
值 语 句 , 它 表 示 把 3 * SQR(100)/(LOG(3) 十 EXP(2) ) 算 术 表 达 
式 的 值 计 算出 来 再 送 到 实 型 变量 Ww 中 保存 起 来 ,以 备 后 用 。 第 
20 句 是 打印 语句 ,表示 把 W 的 值 显示 在 屏幕 或 打印 在 宽 行 纸 
上 (PRINT 语句 后 面 还 要 专门 介绍 ) 。 
RUN 表示 运行 这 段 程 序 。 运 行程 序 之 前 ,必须 按 要 求 将 程 
序 输入 计算 机 内 。 对 于 这 种 简短 的 程序 ,建议 读者 直接 在 CEC 
一 I 机 上 输入 ,而 不 必用 笔 写 在 纸 上 后 再 输入 。 应 当 养 成 直接 在 
计算 机 终端 (键盘 ) 上 编写 程序 的 习惯 。 
WwW=3. 5345396 是 该 程序 运行 后 输出 的 结果 。 这 里 虽然 只 
有 两 个 语句 , 却 是 一 个 完整 的 能 够 在 机 器 上 运行 的 程序 。 
上 例 程 序 中 赋值 语句 也 可 以 写成 : 
10 LET WwW 王 3x*SQR(100)/(LOG(3) 十 EXP(2)) 
例 3.2 10A=5u/ 
20 B 一 6x/ 
30 C 一 7w 巡 
40D 王 BxB 一 4xAxCu- 
50 PRINT Du 
RUNA- (以 下 是 运行 结果 ) 
一 104 
前 三 句 将 5,6,7 分 别 送 到 和 A,B,C 变量 中 ,第 40 句 利 用 前 
面 获得 的 A,B,C 的 值 来 计算 B: 一 4AcC 的 值 ( 一 104) 并 将 其 (一 
104) 送 到 变量 D 中。 第 50 句 打 印 出 D 的 值 。 
。D1]1 。 


例 3. 1 和 例 3. 2 中 赋值 语句 的 左 部 变量 和 右 端 表达 式 都 是 
数值 型 量 。 下 面 我 们 来 看 如 何 保存 字符 串 。 

例 3.3 将 字符 串 连 接 后 打印 出 来 。 

10 HI1$ 一 “ 张 华 2e/ 

20 H2$ 一 “是 il/ 

30 H3$ 一 “一 个 好 学 生 。”i/ 

40H$=H1$ 二 H2$ 十 H3$k 

50 PRINT H$w/ 

RUNA (以 下 是 运行 结果 ) 

张 华 是 一 个 好 学 生 。 

10、20、30 三 个 赋值 语句 的 作用 是 把 相应 的 汉字 送 到 各 自 
的 字符 串 变 量 中 。 第 40 句 是 将 三 个 字符 串 变量 CH1 $ .H2 $ 和 
H3$ ) 的 值 进行 连接 运算 ,运算 的 结果 仍然 是 一 个 字符 串 “ 张 华 

一 个 好 学 生 ”, 再 将 该 字符 串 送 到 变量 H$ 中 。 第 50 句 打印 
出 串 变量 H$ 的 值 ( 张 华 是 一 个 好 学 生 )。 从 这 个 例子 也 可 以 看 
出 字符 串 运算 符 “ 十 ”和 算术 运算 符 “ 十 ”的 本 质 区 别 。 

从 前 面 几 个 例子 来 看 , 行 号 均 是 从 10 开始 的 。 提 醒 读者 不 
要 造成 这 样 一 个 错觉 :似乎 BASIC 程序 的 行 号 只 能 从 10 起 编 
号 。 只 要 行 号 在 63999 以 内 ,用 任何 无 符号 整数 开始 作 行 号 都 
可 以 。 

语句 行 号 的 另 一 个 规律 读者 可 能 早已 发 现 。 这 就 是 行 号 始 
终 是 由 小 到 大 编号 。 这 是 正确 的 ,也 是 必须 的 。BASIC 语言 中 先 
执行 的 语句 必须 具有 较 小 的 行 号 。 

对 于 程序 的 输入 ， 我 们 可 以 按照 语句 行 号 由 小 到 大 的 顺序 
依次 输入 机 内 ， 也 可 以 随心 所 和 欲 地 按 自 认为 合适 的 顺序 输入 机 
内 。 只 要 输入 正确 ， 对 计算 机 来 说 运行 效果 完全 一 样 。 对 于 例 
3. 3 的 程序 ， 我 们 也 可 以 按 如 下 的 语句 顺序 输入 。 

例 3. 4 不 按 行 号 小 大 输入 的 程序 。 
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40H$=H1$ 二 H2$ 十 H34 
10 H1$ =“ 张 华 2x/ 
50 PRINT HS$ x 
30 H3$ 一 “一 个 好 学 生 。2i 
20 H2$ 一 “是 wii/ 
RUNw/ (以 下 是 运行 结果 ) 
张 华 是 一 个 好 学 生 。 
运行 结果 完全 一 样 。 为 什么 两 个 相同 程序 排列 顺序 完全 不 
同 以 后 运行 的 结果 仍然 相同 呢 ? 有 两 个 原因 :其 一 是 语句 行 号 没 
有 变 , 只 是 输入 语句 的 先后 次 序 变 了 ;其 二 是 计算 机 总 是 从 行 号 
小 的 语句 按 行 号 由 小 到 大 顺序 依次 执行 ,尽管 输入 次 序 打 乱 了 ， 
但 计算 机 执行 语句 的 顺序 仍然 没有 变 。 所 以 运行 结果 完全 相同 。 
如 果 我 们 把 行 号 和 语句 的 对 应 关系 打 乱 了 , 那 运 行 结果 一 般 说 
来 是 不 同 的 。 
例 3.4 的 作法 尽管 是 正确 的 , 却 实 在 是 不 可 取 的 ,何必 自己 
和 自己 过 不 去 呢 ! 


3.1.2 赋值 语句 的 执行 步骤 


赋值 语句 写 起 来 是 简单 的 ,但 计算 机 系统 在 实现 该 语句 功 
能 时 却 必 须 采 取 三 个 步 又 才能 完成 。 

1， 确 定 左 部 变量 

程序 中 给 出 一 个 赋值 语句 后 ,系统 首先 就 要 确定 其 左 部 变 
量 . 以 上 赋值 语句 中 给 出 的 左 部 变量 都 是 简单 变量 的 情况 ,因而 
确定 左 部 变量 并 不 麻烦 如果 左 部 变量 是 下 标 变量 (第 六 章 介绍 
数组 时 将 有 详细 说 明 ) ,那么 就 必须 先 计 算出 下 标 后 才能 确定 左 
部 变量 。 在 计算 机 系统 内 部 ,确定 下 标 变 量 这 种 左 部 变量 时 还 有 
一 番 复 杂 的 计算 ,这 里 从 略 。 有 兴趣 的 读者 请 参阅 编译 技术 方面 
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的 书籍 。 

2 计算 右 端 表达 式 的 值 

如 果 右 端 表达 式 是 一 个 算术 表达 式 , 则 按 算术 表达 式 的 规 
则 进行 算术 运算 ,最 终 得 出 一 个 数值 ;如 果 右 端 是 字符 串 表达 
式 , 那 么 就 按照 字符 串 表达 式 的 运算 规则 计算 其 值 ; 右 端 也 可 以 
是 逻辑 表达 式 , 相 应 计算 的 值 就 是 逻辑 值 . 下 面 是 逻辑 表达 式 作 
为 右 端 项 的 例子 : 

例 3.5 右 端 项 是 逻辑 表达 式 的 情形 。 


19 有 = 8 

20 8B = 16 

386 C = 了 

q99L=R>9d 
58T=hrh+ByrB>Cc~qhNDLOR NOT B169 
6 PRINT LT 


]RUN 
1 1 


在 例 3. 5 的 程序 中 ,40 和 50 两 句 的 右 端 都 是 逻辑 表达 式 。 
左 部 变量 L 和 T 均 是 逻辑 变量 。 这 个 例子 告诉 我 们 ,也 可 以 把 
轩 辑 表达 式 的 值 送 到 一 个 变量 中 保存 起 来 ,以 后 需 用 时 就 直接 
引用 该 逮 辑 变量 。 

3. 将 表达 式 的 值 传送 到 左 部 变量 中 保存 

计算 机 要 采取 的 第 三 个 步骤 就 是 将 第 二 个 步骤 中 计算 出 来 
的 值 送 到 由 第 一 步 所 确定 的 左 部 变量 中 保存 起 来 ,后 面 的 语句 
就 可 以 直接 引用 变量 名 来 使 用 其 值 了 。 

以 上 三 个 步骤 ,完全 由 计算 机 的 硬件 和 软件 来 完成 ,不 需要 
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我 们 人 工 干预 在 实际 使 用 中 ,我 们 只 需 按 要 求 写 出 正确 的 赋值 
语句 就 行 T 了 。 事 实 上 ,机 器 在 执行 这 三 个 步骤 时 ,从 直观 上 我 们 
是 感觉 不 到 的 。 


3.1.3 使 用 赋值 语句 时 的 注意 事项 


赋值 语句 在 实际 程序 设计 中 用 得 最 多 ,几乎 任何 一 个 有 意 
义 的 BASIC 程序 都 不 可 能 没有 赋值 语句 。 但 使 用 时 必须 注意 以 
下 几 点 : 

1. 左 部 变量 和 右 端 表达 式 的 数据 类 型 必须 一 至 

如 果 右 端 是 算术 表达 式 , 那 么 左 部 变量 只 能 是 数值 型 变量 。 
如 果 右 端 是 字符 串 表 达 式 ,那么 左 部 变量 只 能 是 串 型 变量 (标志 
是 $ )。 如 果 右 端 是 逻辑 表达 式 , 那 么 左 部 变量 只 能 是 逻辑 变量 。 
逻辑 变量 同 实 型 变量 一 样 没有 任何 外 观 标 志 , 但 系统 内 部 是 清 
楚 的 。 

如 果 赋 值 语 句 等 号 两 端的 数据 类 型 (主要 是 指 算术 类 、 逻 辑 
类 和 字符 串 类 ) 不 一 致 ,那么 执行 该 语句 时 就 会 发 生 数据 类 型 不 
匹配 的 错误 。 

例 3.6 执行 下 面 的 赋值 语句 。 

10D$ 王 3 十 LOG(C5Dul 

20 PRINT D$ kw/ 

RUNL/ (以 下 是 运行 结果 )， 
? Type mismatch error in 10 

运行 这 个 程序 后 ,在 第 10 句 发 生 了 类 型 不 匹配 的 错误 
(Type mismatch error in 10) 。 我 们 重新 检查 程序 就 会 发 现 , 在 第 
10 名 的 赋值 语句 中 , 左 部 变量 是 串 型 变量 ,而 右 端 却 是 一 个 算 
术 表达 式 , 理 所 当然 地 要 发 生 数据 类 型 错误 。 改 正 的 办 法 是 根据 
实际 情况 将 左 部 变量 换 成 实 型 量 或 将 右 端 写成 字符 串 形 式 。 

55。 


如 果 赋 值 语句 的 两 端 均 是 算术 量 ( 仅 仅 是 整 实 之 间 的 差 
别 ) ,那么 机 器 将 自动 进行 这 种 转换 .转换 的 原则 是 :如 果 左 部 是 
整 型 量 (标志 是 %%) 而 右 部 是 实 型 量 , 那 么 机 器 自动 将 右 部 实 型 
量 取 整 后 按 整数 形式 保存 到 左 部 变量 中 。( 当 一 个 实 型 数 转换 成 
整 型 数 时 , 取 小 于 或 等 于 该 实数 的 最 大 整数 作为 转换 后 的 结 
果 )。 如 果 左 部 是 实 型 量 而 右 端 是 整 型 量 , 那 么 机 器 自动 将 整 型 
值 转换 成 实 型 值 后 保存 在 左 部 变量 中 。 
2. 左 部 变量 只 能 是 一 个 不 带 运算 符 的 变量 名 ,而 不 能 是 常 
数 或 带 运 算 符 的 表达 式 
3， 赋值 语句 的 标志 LET 可 以 省 去 不 写 
前 面 所 举 的 赋值 语句 的 例子 中 已 经 这 样 作 了 。LET 省 去 后 
不 会 对 语句 有 影响 。 
4. 等 号 一” 的 作用 
赋值 语句 中 的 等 号 “天 ”, 既 不 同 于 数学 中 的 “二 ”, 又 不 同 于 
关系 表达 式 中 的 “ 王 ”。 数 学 中 的 等 号 代表 的 是 一 个 相等 关系 , 左 
右 两 端 可 交换 。 而 关系 表达 式 中 “= ”代表 的 是 一 种 相等 比较 运 
算 ,运算 的 结果 是 一 个 逻辑 值 . 赋 值 语 句 中 的 “= ”代表 的 是 一 种 
传送 的 操作 动作 。 请 看 下 面 的 例子 : 
例 3.7 10X=3x/ 
20 X 一 X 十 5x/ 
30L 一 X 王 5x/ 
40 PRINT X ,Lil/ 
RUNw/ 〈 以 下 是 运行 结果 ) 
8 0 
对 于 第 20 名 的 X 王 X 十 5, 在 数学 中 看 来 这 是 完全 不 可 能 
的 ,因为 不 会 有 任何 一 个 变量 加 上 一 个 数值 后 仍然 等 于 变量 本 
身 。 但 BASIC 语言 是 允许 的 , 它 表 示 在 原来 基础 上 累加 一 个 值 
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后 再 送 到 原单 元 中 保存 。 
第 30 句 是 一 个 逻辑 赋值 语句 , 它 表 示 枯 X=5 的 逻辑 值 送 
到 逻辑 变量 工 中 保存 。 这 一 句 中 有 两 个 等 号 ,前 一 个 “= ”代表 
传送 操作 ,后 一 个 “= ”代表 关系 运算 。 
从 输出 结果 来 看 ,8 是 X 累加 上 5 后 得 到 的 值 。 而 0 是 逻 
辑 值 假 ,因为 X 的 值 并 不 等 于 5, 所 以 工 的 值 是 假 (0) 。 
5. 可 以 利用 赋值 语句 进行 累加 和 连 乘 。 
例 3.8 运行 下 列 程序 。 
198-=3 
20u = 
30sS=1 
4@e 册 = 遇 +h 
5eu =u+n 
68S-S*h 
7es=-sS*rn 
88 PRINT 9, 册 S 


]RUN 
3 6 9 


40 一 50 就 将 '*A 的 值 累加 起 来 了 ,因为 累加 了 两 次 ,所 以 输 
出 结果 为 6。60 一 70 句 把 A 的 值 连 乘 了 两 次 ,所 以 输出 结果 为 
9。 


6 赋值 语句 也 是 使 变量 获得 数据 的 一 种 方式 。 
3. 2 ”键盘 输入 语句 


赋值 语句 可 以 使 变量 获得 数据 这 是 毫 无 疑问 的 。 但 是 ,如 果 
中 7 吉 


把 赋值 语句 作为 变量 获得 数据 的 唯一 方式 ,那么 读者 将 会 发 现 ， 
输入 100 个 不 同 的 数据 就 得 有 100 个 不 同 的 赋值 语句 , 那 乏 味 
的 程序 不 就 太 长 了 吗 ? 是 的 ,对 实用 来 说 可 能 是 不 方便 的 。 因 而 
BASIC 语言 提供 了 多 种 输入 语句 。 


3. 2. 1 键盘 输入 语句 的 格式 及 其 作用 


格式 :INPUT [( 提 示 ;*] 《变量 名 表 ， 

作用 :人 允许 用 户 从 键盘 上 接收 数据 并 送 到 对 应 变量 中 。 

其 中 : 待 选 项 [( 提 示 ?;] 是 用 户 自己 给 出 的 提醒 输入 数据 的 
标记 , 它 由 字符 串 组 成 .变量 表 是 希望 从 键盘 上 接收 数据 的 一 个 
或 多 个 变量 名 。 如 果 表 中 有 多 个 变量 名 ,那么 彼此 之 间 要 用 逗号 
“,” 隔 开 。 

例 3.9 用 键盘 语句 输入 A,B,C 的 值 。 

10 INPUT “请 输入 数据 :”3;A,B,Cu/ 

20 D 王 BxB 一 4x AxCu/ 

30 PRINT ABCul 

40 PRINT Dx/ 

RUN 巡 7 

请 输入 数据 :5,6,7w 

5 6 7 

一 104 (运行 结果 ) 

对 于 这 个 程序 需要 作 如 下 的 说 明 : 

@“ 请 输入 数据 ?: 这 是 为 提醒 用 户 注 意 而 给 出 的 提示 信息 。 
在 实际 应 用 中 ,用 户 可 以 给 出 自己 所 需要 的 提示 信息 。 

@@ 提 示 信 息 之 后 一 定 要 有 一 个 分 号 “;”, 其 作用 是 将 提示 信 
息 和 变量 表 隔 开 。 

@@INPUT 之 后 的 A,B,C 是 变量 表 , 表 中 有 A、B、C 三 个 变 
量 名 。A、B 和 了 BC 间 都 用 逗号 隔 开 。 

了 


图 襄 入 RUN 上 命令 后 ,屏幕 上 显示 :“ 请 输入 数据 :” 这 几 个 
字符 ,并 等 待 用 户 输入 数据 。 本 例 中 输入 的 是 5,6,7 三 个 常数 。 
至 此 ,机 器 自动 把 5 送 到 A 中 ,6 送 到 B 中 ,7 送 到 CC 中。 输入 
的 数据 间 要 用 逗号 “,” 隔 开 ( 请 读者 考虑 为 什么 要 用 “,?” 隅 开 ) 。 
最 后 的 5,6,7 和 一 104 是 输出 的 运行 结果 (30,40 两 句 的 作用 )。 

在 INPUT 语句 中 ,如 果 省 略 了 提示 信息 ,那么 系统 用 一 个 
问号 “?” 作 为 提示 用 户 输入 数据 的 标志 。 人 参看 下 例 。 

例 3.10 运行 下 列 程序 并 输入 数据 。 


19 INPUT BR 请 ,B, 委 
286S=3 汪 (hyrht+B 交 Br+H 交 fH) 
380V= BR 水 H 冰 SOQOR (8S) /6 

qd48 PRINT BA, AhR,，B 

589 PRINT H,V 


]RUN 

933.14159,5.3,，2.7,3.72 

3. 14159 5.3 2.7 
3.72 23.66821894 


其 中 的 “?? 就 是 系统 给 出 的 提醒 输入 数据 的 信息 。 
3.2.2 使 用 INPUT 时 的 注意 事项 


1. 变量 名 必须 和 输入 的 数据 一 一 对 应 。 
如 果 变 量 名 和 所 涡 入 的 数据 不 对 应 ,那么 系统 是 不 容易 发 
现 这 类 错误 的 。 因 此 ,我 们 使 用 时 应 倍加 注意 ,否则 将 导致 错误 
的 计算 结果 。 如 果 有 多 个 变量 名 ,变量 名 之 间 必 须 用 逗号 隔 开 。 
如 前 面 示例 中 的 INPUT A,B,C 所 示 。 
2. 变量 名 和 输入 数据 的 类 型 必须 一 致 。 
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如 果 变 量 名 和 输入 数据 类 型 不 正确 , 则 屏幕 显示 “? REEN- 
TER? 提 示 ,意思 是 要 求 用 户 重 新 融入 正确 的 数据 。 

3. 用 INPUT 接收 字符 串 时 ,要 求 从 键盘 上 痪 入 的 字符 串 
中 不 能 含有 逗号 。 因 为 逗号 是 用 于 分 隔 数据 的 标志 。 

4. 用 INPUT 接收 的 只 能 是 具体 的 常数 (可 以 是 数值 常数 
或 字符 串 常数 ) ,而 不 能 是 变量 名 或 表达 式 。 人 参看 下 例 。 

例 3. 11 键盘 敲 入 数据 。 


16U =5 

26 INPUT “输入 数据 :"5h,B,C 
38D= (ht+B) /7C 

49 PRINT D 


]RUN 

输入 数据 :u, SQR( 188),5+3 
?REENTER 

输入 数据 ; 


Break in 29 


显然 融入 的 数据 不 正确 ,因为 W,SQR(100),5 十 3 均 不 是 
常数 而 是 表达 式 。 

5. 如 果 INPUT 中 接收 的 是 多 个 数据 ,那么 在 敲 入 数据 时 ， 
可 以 用 逗号 来 分 隔 数据 ,也 可 以 用 上 来 分 隔 数据 。 如 果 用 “,? 分 
隔 , 最 后 数据 之 后 必须 毅 巡 键 ,在 此 情况 下 ,上 巡 作 为 所 有 数据 是 
否 完结 的 标志 。 

6. 如 果 INPUT 中 给 出 了 提示 信息 ,那么 提示 信息 之 后 一 
定 要 有 一 个 分 号 “;”, 它 用 于 把 提示 信息 和 变量 表 分 隔 开 。 

7 系统 约定 一 个 算术 变量 在 没有 获得 值 之 前 其 值 为 0, 一 
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个 字符 串 变 量 在 未 得 到 值 之 前 为 空 。 
3.2.3 GET 语句 


格式 : GET (变量 名 》 

作用 :人 允许 用 户 从 键盘 上 接收 一 个 字符 到 指定 的 变量 中 。 这 
里 的 字符 根据 变量 名 的 类 型 来 确定 ,可 以 是 数字 ,也 可 以 是 其 它 
字符 。 

例 3.12 用 GET 将 数字 3 送 到 A 中 。 

10 GET Auw/ 

20 PRINT Ax/ 

RUNA/ 

3 〈 毅 入 数据 字符 3) 

3 (打印 的 结果 ) 

使 用 GET 来 接收 数据 时 注意 

1. 机 器 执行 GET 语句 时 屏幕 上 没有 任何 提示 标记 ,输入 
的 字符 也 不 显示 在 屏幕 上 。 因 而 可 用 GET 来 生成 一 个 简单 的 保 
密码 。 

2 痪 入 数据 之 后 不 必 殴 上 巡 ,因为 只 接收 一 个 字符 ,不 用 贡 
上 妇 标 志 机 器 也 能 判断 数据 是 否 结束 。 

3. 如 果 GET 之 后 的 变量 名 是 算术 变量 ,那么 敲 入 十 、 
一 、、 ;符号 后 变量 的 值 均 为 零 。 而 输入 其 它 字符 时 均 发 生 语 
法 错 , 这 时 屏幕 显示 “? Syntax error” 且 程序 停止 执行 。 

4. 用 GET 来 接收 数据 时 ,无论 在 键盘 上 敲 入 了 多 少 个 字 
符 , 变 量 均 只 能 接收 第 一 个 字符 。 

通常 ,实际 使 用 中 都 不 大 喜欢 用 GET 来 接收 参与 计算 的 数 
据 ( 因 为 参与 计算 的 数据 往往 不 止 一 位 数字 ) ,而 大 多 用 于 接收 
一 个 固定 的 字符 ,以 便 用 于 控制 程序 的 执行 流程 。 
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3.3 输出 语句 


前 面 的 例子 中 我 们 已 经 用 到 了 输出 语句 PRINT, 但 没有 作 
任何 解释 ,现在 是 该 详细 介绍 的 时 候 了 。 


3.3.1 输出 语句 的 格式 和 作用 


格式 :PRINT (表达 式 表 》 或 ? 《表达 式 表 ) 
作用 :将 表达 式 的 值 显示 在 屏幕 或 打印 在 宽 行 纸 上 。 程 序 中 
也 可 以 用 “?" 代 替 PRINT, 效 果 完 全 相同 。 
这 里 的 表达 式 表 是 需要 打印 其 值 的 一 个 或 多 个 表达 式 。 表 
达 式 表 中 的 各 个 表达 式 之 间 用 逗号 ”“,” 隔 开 , 也 可 以 用 分 号 ”5 
隔 开 . 但 用 “,” 和 ”“;" 隔 开 时 ,打印 出 来 的 数据 的 排列 方式 略 有 不 
同 。 
例 3. 13 用 X=xx 形式 打印 出 表达 式 的 值 。 
18 INPUT“ 输 入 数据 :";X*Y，,Z 
298 划 = SQR (XrX+YY+Z 冰 了 ) 
38 PRINT “YX= XI anY= 35 2 
48 PRINT “ 册 =… 刘 


ww 


]RUN 

输入 数据 :5,6, 了 
X=5 Y=6 Z=7 
u=18.4886885 


第 30 句 的 PRINT 中 , 既 有 字符 串 表达 式 又 有 算术 表达 式 。 
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3. 3. 2 分隔 符 “,” 和 ”“; ”在 PRINT 中 的 用 法 

1. 分 隔 符 “，” 

在 PRINT 语句 中 ,如 果 输 出 表达 式 中 用 了 一 个 逗号 ,那么 
在 输出 时 ,逗号 之 后 的 表达 式 的 值 将 占用 16 个 字符 位 置 。 

例 3.14 求 ( 鼠 二 S 2 的 值 ,其 中 a=-123.78， 


e 
b 一 1324,c 一 54. 32,d 一 123. 3,e 一 7. 82 


19 INPUT “输入 数据 :"5h,B,c,D,E 
20F-( 人 VB+CcrD/VE》、~3 
RN 全 GE 

498 PRINT h,B,C 

58 PRINT “D…"E"…，"F" 

68 PRINT D,E,F 


JRUN 

输入 数据 :-123.78, 1324,54.32, 123.3,7.82 

8 B C 

-123.78 1324 54.32 

D E F 

123.3 7.82 628967686 


上 例 输出 数据 的 排列 格式 是 这 样 的 ， 

字母 A 占 据 1 一 16 列 ,字母 B 占 据 17 一 32 列 ,字母 C 占 
据 33 一 40 列 。 同 样 ,一 123.78 占据 新 行 上 的 1 一 16 列 ,1324 占 
据 17 一 32 列 ,54. 32 占 据 33 一 40 列 。 其 余 类 似 。 

在 PRINT 中 ,如 果 我 们 用 逗号 作为 分 隔 符 , 那 么 系统 按 16 
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位 分 为 一 组 ,将 输出 宽度 为 40 个 字符 的 屏幕 分 成 三 组 ,前 两 组 
各 占 16 位 ,第 三 组 占 8 位 。 如 果 输 出 的 第 一 个 表达 式 的 值 占 满 
了 16 位 ,那么 下 一 个 表达 式 的 输出 值 就 占据 第 三 组 的 8 位 。 如 
果 第 三 个 输出 值 需要 占据 7 位 以 上 的 字符 位 置 ,那么 系统 将 把 
第 三 个 输出 值 自 动 推 到 下 行 的 第 一 个 字符 位 置 开 始 输出 。 这 种 
格式 称 为 标准 输出 格式 .我们 在 准备 输出 数据 时 ,应 当 注意 数据 
位 数 不 要 超过 15 位 。 在 第 三 组 区 输出 时 不 要 超过 7 个 字符 。 
2. 分 隔 符 “;?” 
在 PRINT 中 ,如 果 用 “;" 作 分 隔 符 , 那 么 数据 按 紧 凑 格 式 输 
出 。 
例 3.15 按 紧凑 格式 输出 表达 式 的 值 。 
19 INPUT“ 输 入 数据 :"5n,B,C,D,E 
20F=(R/VB+CcrD/VE)~3 
386 PRINT hj;B5C5D5E5F 


]RUN 
输入 数据 :-123.78， 132q,54.32, 123.3,7.82 
-123.78132454.32123. 37.82628967689 
从 上 面 结果 可 以 看 到 :紧凑 格式 输出 的 数据 之 间 没 有 空格 ， 
以 致 造成 不 大 好 辨认 各 个 数据 。 如 果 在 每 两 个 数据 之 间 输 出 一 
个 空格 ,那么 可 读 性 就 强 多 了 。 请 读者 自己 完成 。 


3. 3.3 ”打印 空 行 和 换行 打印 


1. 打印 空 行 
如 果 输 出 数据 每 两 行 之 间 希 望 留 有 较 宽 的 空白 ,那么 可 以 
在 输出 数据 时 有 意 打印 一 个 空 行 。 
例 3.16 打印 空 行 
。 064。 


16 INPUT “输入 数据 :"5h,B,Cc,D,E 
20F=-(R/B+ChrD/E》~3 
38 PRINT h,B,C 

35 ”PRINT 

48 PRINT D,E,F 


]RUN 
输入 数据 :-123. 78，1324，54.32， 123.3,，7 了 .82 


-123.78 1324 54.32 


123.3 7.82 628667986 


上 述 程序 中 第 35 句 打印 的 就 是 一 个 空 行 ,其 作用 相当 于 把 
打印 机 的 打印 头 向 下 移动 了 一 行 。 因 而 在 输出 数据 间 留 了 一 个 
空白 行 。 也 可 以 把 35 句 改 为 :35 PRINT“”, 效 果 完 全 一 样 。 

2. 换行 打印 

如 果 需 要 把 数据 打印 在 不 同 的 行 上 ,可 以 有 两 种 换行 的 办 
法 。 一 是 人 为 的 安排 换行 打印 ;二 是 由 机 器 自动 换行 。 

例 3.17 不 换行 打印 

19 INPUT “输入 数据 :"5h*B,C,，D,E 

20F= (RhRVB+ChrD/AE》^ 人 3 

38 PRINT RJ ”5B5 “505 3 

q48 PRINT D5” ”5E5” ”FF 


]RUN 

输入 数据 :-123.78, 1324,54.32, 123.3, 了 .82 

-123.78 1324 54.32 123.3 7.82 628967689 

在 第 30 句 中 ,由 于 C 之 后 有 一 个 分 号 ,就 表示 打印 完 C 的 
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值 后 不 换行 ,第 40 句 打印 的 值 紧 跟 其 后 。 尽 管 30 和 40 句 分 别 
是 两 行 上 的 两 个 打印 语句 ,但 它们 打印 的 数据 却 安 排 在 同一 行 
上 .因此 ,打印 语句 的 个 数 和 所 占 行 数 不 能 确定 打印 数据 占用 的 
行 数 。 示 例 中 的 一 个 “ 志 ” 表 示 一 个 空格 。 有 时 为 了 准确 描述 打 
印 格式 ,用 “一 ?表示 一 个 空格 ,用 “- ”明确 表示 出 空格 是 个 好 办 
法 。 当 然 C 之 后 也 可 以 跟 有 逗号 ,同样 表示 不 换行 ,但 打印 格式 就 
必须 按 逗 号 的 要 求 办 理 。 
实际 上 我 们 也 可 以 不 必 人 为 换行 ,而 由 机 器 自动 调整 换行 。 
例 3.18 机 器 自动 换行 打印 
198 INPUT “输入 数据 :"ih,B,C,D,E 
20F-(RyAB+cyD7E》~3 
38 ”PRINT h,B,C,E,F 


]RUN 

输入 数据 :-123.78, 1324,54.32, 123.3,7.82 
-123.78 1324 54.32 
123.3 7.82 628667988 


当 所 有 表达 式 的 值 在 一 行 止 打印 不 下 时 ,机 器 自动 转 到 下 
一 个 新 行 上 继续 打印 。 本 例 中 第 30 句 就 是 如 此 。 

我 们 已 经 介绍 了 赋值 语句 、 键 盘 输入 语句 和 打印 语句 ,利用 
这 些 语 句 就 可 以 编写 一 个 简单 而 完整 的 程序 了 。 为 加 深 读者 对 
程序 设计 的 理解 ,我 们 再 举 一 个 例子 。 


例 3.19 求 : 
ecos(2bx 十 c) es[a cos(2bx 十 c) 十 2b sin(2bx 十 c)3 的 信 
2a 2(a2 十 4b2) 


其 中 :a 王 3,b 一 4,c 一 5,x 一 6 
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19 INPUT "输入 数据 :…5R,，B,C,X 

29 WU1 = EXP (本 X)》 

39u2=2*B*X+C 

49 W3 = 5C0S (W2) 

56 Wuq = SIN (u2) 
59euU=sul*yrwW3/ (2rh- (ul*yr(Rkyru3+2*B*uqd vv (2 
站 《月 水 腿 + 和 本 B 冰 8B)) 

78 PRINT hv, B,C 

88 PRINT X， "=…)U 


]RUN 

输入 数据 :3,q,5,6 

3 4 5 
6 =-19234665.6 


这 个 程序 中 引入 了 一 些 中 间 工 作 变 量 , 虽 然 直观 性 差 了 一 
些 ,但 书写 起 来 却 更 为 方便 。 对 初学 者 来 说 ,我 们 首先 要 求 编写 
程序 正确 ,只 要 熟练 ,自然 就 能 生 巧 。 从 上 面 给 出 的 示例 中 ,我们 
已 经 体会 到 编制 程序 的 一 些 初 步 方法 : 

四 熟悉 问题 , 弄 懂 解 题 方法 。 如 果 问 题 的 解决 方法 都 不 清 
楚 , 那 无 论 如 何 是 编 不 出 程序 来 的 。 

@@ 给 变量 以 正确 的 命名 。 实 际 问题 中 给 出 的 名 字 并 不 一 定 
符合 BASIC 语言 的 要 求 。 因 而 要 对 实际 问题 中 的 变量 进行 改 
造 , 如 希腊 字母 或 罗马 文字 母 改 用 相近 的 英文 或 汉语 拼音 字符 ， 
使 之 合法 化 。 

图 重 复出 现 的 式 子 用 中 间 工 作 变量 代替 ,以 备 后 用 。 

人 @ 变 量 用 什么 方式 获得 数据 。 这 里 仅 介绍 了 INPUT、GET 
和 赋 旧 语句 的 办 法 ,以 后 还 会 介绍 另外 的 办 法 。 总 的 原则 是 : 简 
单 利 方便。 

加 数据 的 输出 格式 .总 的 原则 是 :数据 格式 要 便于 阅读 和 浏 
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览 ,尽量 照顾 人 们 通常 的 使 用 习惯 。 
3. 4 BASIC 中 常用 的 DOS 命令 


这 里 所 谓 的 常用 命令 是 操作 系统 提供 给 BASIC 系统 使 用 
的 一 些 命令 。 有 些 命令 可 以 当成 BASIC 的 语句 来 使 用 ,而 有 些 
命令 则 只 能 作为 键盘 操作 命令 来 使 用 。 

1. 程序 结束 标志 END 

格式 :END 

作用 :使 程序 终止 执行 ,系统 不 提供 任何 提示 信息 。 

用 法 :该 命令 可 以 象 BASIC 语句 一 样 写 在 程序 需要 终止 的 
地 方 ,表示 程序 执行 到 此 完结 。 

例 3.20 带 有 END 标志 的 程序 。 

196 INPUT“ 输入 数据 :8,B,C 
20F = (R*rh+ByrBvCc 
38 PRINT “F=…5F 

49@ END 


]RUN 
输入 数据 :4,3,5 
F=5 


本 章 的 所 有 示例 程序 的 末尾 均 可 以 加 上 程序 结束 标志 
END 。 
2， 运 行程 序 命令 RUN 
格式 :RUN 或 RUN 〈 行 号 》 
作用 :运行 内 存 中 的 BASIC 程序 。 如 果 带 有 行 号 , 则 从 者 定 
行 号 开始 运行 。 
e。 6068 。 


用 法 :一 个 BASIC 程序 输入 到 内 存 以 后 ,如 果 我 们 希望 立 
即 执行 之 , 则 在 程序 末尾 敲 入 RUN 命令 ,机 器 就 按 行 号 由 小 到 
大 的 顺序 ,立即 执行 输入 到 内 存 中 的 BASIC 程序 。RUN{《 行 号 》 
表示 从 指定 行 号 的 语句 开始 运行 。 

3. 列 出 程序 命令 LIST 

格式 :LIST 或 LIST [( 行 号 1)][L,( 行 号 27] 

作用 :在 屏幕 上 显示 内 存 的 BASIC 程序 。 

用 法 :我 们 输入 一 个 BASIC 程序 后 ,如 果 希 望 查看 程序 输 
入 是 否 正确 ,那么 就 可 以 用 该 命令 列 出 程序 。 如 果 不 指出 行 号 ， 
则 列 出 全 部 程序 清单 。 如 果 指 出 了 行 号 ,那么 就 列 出 从 行 号 1 
到 行 号 2 之 间 的 程序 段 。 如 LISTw 就 显示 出 内 存 中 保存 的 BA- 
SIC 程序 。 

4. 删除 程序 的 命令 NEW 

格式 : NEVV 

作用 : 删 去 内 存 中 的 BASIC 程序 。 

用 法 : 如 果 我 们 要 输入 一 个 新 的 程序 ,就 应 当 把 原来 不 用 
的 程序 删 去 否则 ,新 老 程序 就 混在 一 起 ,影响 运算 的 正确 性 。 清 
除 旧 程序 可 以 直接 融入 NEW 命令 。 如 果 你 要 检查 旧 程 序 是 否 
已 被 删 去 ,可 用 LIST 命令 。 

5. 列 磁 盘 目 录 

格式 : CATALOG 

作用 : 列 出 磁盘 上 文件 的 名 字 。 

以 上 是 经 常用 到 的 一 些 命令 和 操作 ,其 它 还 有 一 些 命令 请 
参见 第 三 册 《 操 作 系统 》 的 有 关节 段 。 
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3.5 BAISC 的 功能 键 


在 CEC-BASIC 语言 中 ,除了 可 以 使 用 自身 的 语句 和 DOS 
提供 的 命令 以 外 ,还 可 以 使 用 系统 定义 的 功能 键 。 恰 当地 使 用 这 
些 功能 键 可 以 给 我 们 的 操作 带 来 极 大 的 方便 。 


3.5.1 用 CTRL 组 成 的 功能 键 


将 键盘 上 的 [CTRIL| 键 和 某 些 字母 键 组 合 在 一 起 可 以 组 成 新 
的 控制 键 。 

CTRL 十 C 一 一 停止 执行 BASIC 程序 返回 到 提示 符 “]? 状 
态 。 如 果 运 行程 序 中 需要 中 途 停止 就 可 直接 融入 这 一 功能 键 。 
CTRL 十 C 的 殴 键 动作 是 : 先 压 住 [CTRI 键 不 松手 ,再 珊 [C| 键 。 以 
下 功能 键 的 敲 键 动作 与 此 类 似 。 

CTRL 十 B 一 一 无 条 件 返回 到 BASIC 语言 系统 。 如 果 目 前 系 
统 处 于 DOS 系统 或 监控 程序 之 下 , 当 需 要 回 到 BASIC 状态 时 ， 
则 可 区 入 CTRL 十 B。 

CTRL 十 S 一 一 暂停 程序 的 卷 动 。 当 用 LIST 列 出 较 长 的 程序 
时 ,程序 以 卷 动 的 方式 显示 在 屏幕 上 ,这 不 便于 检查 程序 。 当 我 
们 效 入 CTRL 二 S 后 ,程序 就 停止 卷 动 而 停留 显示 在 屏幕 上 。 当 
需要 继续 卷 动 显示 时 可 胡 入 任何 键 。CTRL 十 S 功能 键 常常 在 用 
LIST 浏览 程序 时 使 用 。 注 意 :CTRL 十 S 和 CTRL 十 C 两 个 功能 键 
用 法 上 的 区 别 。 

CTRL 十 X 一 一 将 刚才 输入 的 一 行 字符 全 部 清除 并 把 光标 
移 到 下 一 行 的 开头 以 便于 重新 输入 。 

再 强调 一 下 ,凡是 用 [CTRI] 键 组 合 起 来 的 功能 键 ,在 按键 
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时 ,必须 先 压 住 [CTRDU 键 不 松手 ( 松 开 后 就 不 起 作用 ) ,再 敲 入 相 
应 的 组 合 键 。 


3.5.2 用 Esc 引导 的 功能 键 


Ese 也 是 键盘 上 的 一 个 键 , 它 和 其 它 键 组 合 起 来 又 可 得 到 
一 些 新 功能 。[Esej 和 [CTRI| 在 散 键 动作 上 不 同 ,只 需 先 散 一 下 
[Esq 键 (不 能 一 直 按 住 ) ,再 胡 其 它 键 就 行 了 。 由 Esc 来 引导 的 功 
能 键 有 :Esc 十 @ 一 一 清 除 屏幕 字符 ,光标 定位 到 左上 角 。 类 似 
Home 命令 ,Esc 十 @ 的 键 动作 是 : 先 敲 一 下 Ese 键 ( 必 须 放 
开 ) ,再 敲 @ 键 。 其 余 功 能 键 的 矿 键 动作 与 此 类 似 。 

Esc 十 E 一 一 清除 光标 所 在 行 右 端的 字符 。 

Esc 十 F 一 一 清除 光标 右 下 角 的 字符 。 

Esc 十 A 一 一 光标 右 移 一 个 字符 位 置 。 

Esc 十 B 一 一 光标 左 移 一 个 字符 位 置 。 

Esc 十 C 一 一 光标 下 移 一 行 。 

Esc 十 D 一 一 光标 上 移 一 行 。 

在 实际 使 用 Esc 十 A、Esc 十 B、Esc 十 C 和 Esc 十 D 功能 键 来 控 
制 光 标的 移动 时 不 太 方便 ,因为 融 一 次 Esc 十 A, 只 能 将 光标 右 
移 一 格 , 当 要 右 移 5 格 时 就 必须 敲 5 次 Esc 十 A。 下 面 的 控制 键 
可 以 克服 上 述 弱 点 , 即 胡 一 次 Ese 键 , 可 以 引导 多 次 。 如 : 吉 一 次 
Esc 键 , 可 多 次 使 用 I.M,J 或 K 键 。 

Esc 十 I 一 一 光标 上 移 一 行 。 

Esc 十 M 一 一 光标 下 移 一 行 。 

Esc 十 J 一 一 光标 左 移 一 个 字符 位 置 。 

Esc 十 K 一 一 光标 右 移 一 个 字符 位 置 。 
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3.5.3 箭头 键 扎 和 [> 


除了 上 述 的 组 合 键 以 外 ,CEC 一 I 键 盘 上 还 有 拉 和 [两 个 三 
角形 箭头 键 。 

局 一 一 将 光标 左 移 , 并 清除 屏幕 上 箭头 所 经 过 的 字符 。 注 
意 :这些 被 清除 的 字符 在 没有 贡 巡 之 前 屏幕 上 仍然 能 够 看 得 见 ， 
但 对 系统 来 说 ,这 些 字符 已 不 存在 了 .如 果 输 入 程序 时 发 现 以 前 
输入 的 某 个 字符 有 误 ,那么 可 以 用 邹 键 将 光标 回 退 到 出 错字 符 
处 ,再 融入 正确 字符 。 然 后 用 [> 向 右 移 ,一 直 移 到 先前 输入 字符 
的 正确 位 置 , 再 继续 输入 字符 。 

性 一 一 将 光标 右 移 , 并 恢复 先前 被 局 清 除 的 字符 。 


3.6 BASIC 程序 的 删改 


在 输入 BASIC 程序 时 ,即便 是 老手 , 散 键 出 错 也 在 所 难免 ， 
初学 者 就 更 容易 发 生 这 类 错误 .输入 程序 出 错 有 两 种 情况 :一 是 
当 殴 入 某 个 字符 时 发 现 该 行 先 前 某 个 字符 有 错 。 这 时 可 用 所 键 
将 光标 左 移 到 出 错 处 , 获 入 正确 字符 后 ,再 用 [> 键 向 右 退 到 后 继 
字符 的 输入 位 置 ,继续 融入 后 继 字 符 。( 请 考虑 :为 什么 要 用 [> 右 
退 到 后 继 字 符 的 输入 位 置 ?)。 二 是 已 经 换行 后 才 发 现 字符 融 键 
有 误 , 那 么 只 好 用 专门 的 修改 方法 来 改正 之 。 


3.6.1 程序 的 修改 


1. 整 行 重新 输入 

如 果 一 行程 序 中 错误 很 多 ,或 者 出 错 行 较 短 , 那 么 我 们 可 以 

将 出 错 的 行 全 部 重新 输入 。 那 么 系统 就 用 刚 输入 的 行 去 代替 内 

存 中 原来 的 行 。 注 意 行 号 一 定 要 相同 。 否则 ,系统 误 认为 是 添加 
e。 72 。 


一 个 新 行 。 

2. 修改 一 行 中 的 个 别 字符 。 

如 果 待 修改 的 字符 个 数 相 同 ,例如 : 仅仅 是 将 A 改 成 B, 或 
XYZ 改 成 ABC, 那 将 是 容易 的 。 修 改 方法 是 ; 

@ 用 LIST 〈 行 号 ? 列 出 有 误 的 语句 行 。 

加 将 光标 移 到 待 修改 的 语句 行 的 最 左 端 ( 行 号 的 第 一 个 数 
字 位 置 上 )。 

图 用 上 > 将 光标 右 移 到 出 错字 符 处 并 修改 之 。 

@ 轩 用 > 将 光标 继续 右 移 到 该 语句 行 的 末尾 ( 右 端 ) ,再 禹 回 
车 键 。 这 个 语句 行 就 改 好 了 。 

例 3.21 修改 下 列 程序 。 

10 INPUT A,B,C 

20 F 王 (AxA 十 BxB)/C 

30 PINT“F 一 ”;F 

40 END 
显然 ,程序 中 30 句 的 PINT 有 错 , 我 们 利用 上 述 方法 修改 如 下 ， 

@@ 用 LIST 30 列 出 有 误 的 程序 行 。( 由 于 该 例 中 程序 较 短 ， 
因而 这 个 步骤 可 以 省 略 。) 

四 用 Esc 十 I 将 光标 上 移 到 30 语句 行 , 再 用 Esc 十 J 将 光标 
左 移 到 30 语句 行 的 开头 (注意 不 能 用 急 来 左 移 ) 。 该 步 操作 后 
如 下 所 示 : 

10 INPUT A,B,C 

20 F=(Ax*A 十 Bx*B)/VC 

30 PINT“F 一 ”下 

40 END 

图 用 [> 将 光标 右 移 到 “PINT” 的 “IT” 字 符 上 ,并 输入 “RI? 两 个 
字符 。 

@ 图 用 > 将 光标 右 移 到 最 右 端 ( 即 字母 F 之 后 ) ,再 融 回 车 
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键 。 

用 LIST 列 出 程序 : 

10 INPUT A,B,C 

20 FE 王 (AxA 十 BxB)/C 

30 PRINT“F 一 ”; 下 

40 END 

由 此 可 见 ,程序 完全 正确 。 

3. 删除 多 余 字 符 

如 果 程 序 行 中 有 多 余 的 字符 而 影响 到 语句 执行 的 正确 , 那 
么 我 们 必须 将 多 余 字 符 删 去 。 这 可 分 两 种 情况 : 

一 是 多 余 字 符 不 在 引号 内 , 则 可 以 用 修改 个 别 字符 的 办 法 ， 
将 多 余 字 符 换 成 空格 ,因为 空格 并 不 影响 程序 的 执行 。 

二 是 多 余 字 符 在 引号 内 , 则 可 用 放 键 将 光标 右 移 到 出 错字 
符 处 ,再 用 Esc 十 A 或 Esc 十 K 右 移 经 过 多 余 的 字符 ,这 就 把 多 
余 字 符 删 去 了 (注意 :虽然 屏幕 上 还 能 看 见 多 余 字符 ,但 内 存 中 
它 已 不 存在 了 ) 最 后 ,用 放 将 光标 右 移 到 该 行 最 末尾 ,融入 回 车 
键 。 

例 3. 22 去掉 下 列 程序 中 的 多 余 字 符 。 

10 INPUT A,B,C 

20 FE 一 (AxA 十 Bx*B)VC 

30 PRINT“F 十 一 ”3;F 

40 END 
显然 ,30 句 的 引号 内 多 了 一 个 “十 ?号 , 现 将 其 删 去 。 

四 用 Esc 十 1 将 光标 上 移 到 30 句 , 再 用 必 将 光标 右 移 到 
2 

@ 用 Esc 十 A 将 光标 右 移 到 “ 王 ” 上 ,再 用 性 把 光标 右 移 到 
末尾 字母 F 后 的 空白 位 置 上 。 

@@ 敲 入 回 车 键 。 
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经 过 这 几 步 ,多 余 字 符 “ 十 ?被 去 掉 了 。 再 用 列表 命令 列 出 。 

LISTw/ 

10 INPUT A,B,C 

20F 王 (Ax A 十 BxB)/C 

30 PRINT“F 一 ”;F 

40 END 

4. 插 入 字符 

如 果 要 在 一 个 语句 的 某 个 字符 位 置 之 前 插入 若干 个 字符 ， 
方法 是 : 

@ 用 LIST 〈 行 号 ? 列 出 语句 行 。 

@ 用 Esc 十 1 和 Esc 十 将 光标 移 到 该 行 的 开头 (最 左 端 ) 。 

图 用 [> 将 光标 右 移 到 待 插入 字符 的 位 置 之 前 。 

余 用 Esc 十 I 将 光标 上 移 一 行 ( 列 位 置 不 变 ) 。 

@@ 痪 入 待 插 字 符 ( 一 个 或 多 个 均 可 )。 

@@ 用 Esc 十 M 将 光标 下 移 一 行 ,再 用 Esc 十 J( 千 万 不 能 用 
扎 ) 把 光标 左 移 到 待 插入 位 置 的 字符 上 。 

@) 用 [> 将 光标 右 移 到 最 后 的 空白 位 置 上 ,再 敲 入 回 车 键 , 插 
入 字符 就 算 完成 了 。 

例 3.23 在 打印 语句 的 左 引号 之 前 插入 A,B,C 使 之 成 
为 : 

10 INPUT A,B,C 

20 F=(Ax*A 十 BxB)/C 

30 PRINT A,B,C,“F 一 ”;F 

40 END 
插入 的 操作 过 程 如 下 : 

@ 用 LIST 30 列 出 原 语句 行为 ， 

30 PRINT“F 一 ”;F 

@) 用 Esc 十 I 将 光标 上 移 到 30 行 上 。 
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图 用 > 将 光标 右 移 到 “ 下 一” 中 引号 位 置 ( 左 引号 ) 上 。 即 ， 
30 PRINT“F 一 ”;F 
全 用 Esc 十 I 将 光标 上 移 到 一 个 空 行 , 列 位 置 不 变 。 
一 〈 短 横 表 示 光 标 位 置 ) 
30 PRINT “F 一 ”;F 
@@ 敲 入 A ,B,C, 后 显示 为 : 
A,B,C， ( 短 横 代 表 光 标 ) 
30 PRINT“F 一 ”;F 
@@ 用 Esc 十 M 将 光标 下 移 到 30 行 , 再 用 Esc 十 本 把 光标 左 移 
到 “一 ”的 左 引号 上 , 即 
A,B,C 
30 PRINT “F 一 ”;F 
@@ 用 放 将 光标 右 移 到 F 后 的 空白 位 置 上 ,再 敲 回 车 键 , 这 
时 需要 的 字符 就 插入 了 
LISTw/ 
10 INPUT A,B,C 
20F 王 (AxA 二 Bx*B)/C 
30 PRINT A,B,C,“F 一 ”3;F 
40 END 


3. 6. 2 ”程序 行 的 插 人 


如 果 要 在 已 有 程序 行 之 间 插 入 一 个 或 多 个 程序 行 , 那 么 只 
需要 将 新 的 程序 行 号 及 其 程序 敲 入 就 行 了 。 
例 3.24 在 例 3.23 的 20 和 30 之 间 插 入 一 个 25 句 。 只 
需 壳 入 
25 PRINT“A 一 2;A ,“B 一 ”5B ,“C 一 ;Cux] 
LISTw/ 
10 INPUT A,B,C 
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20F=(AxA 二 BxB)/C 

25 PRINT“A 一 ”;A ,“B 一 ”3;B “C 一 ”;C 

30 PRINT“F 一 ”;F 

40 END 

由 此 可 见 , 插 入 程序 行 是 简单 的 ,鉴于 我 们 有 可 能 在 程序 行 
之 间 插入 新 行 ,因而 在 行 号 的 取 法 上 切记 不 要 使 两 行 行 号 数值 
间隔 为 1 连续 。 如 行 号 为 :20,21,22,23… 等 是 不 可 取 的 。 


3.6.3 程序 行 的 删除 


1. 删 去 一 个 整 行 。 

如 果 需 要 去 掉 一 个 程序 行 ,可 以 直接 敲 入 该 行 的 行 号 后 再 
敲 回 车 键 , 就 把 该 行 删 去 了 。 

例 3.25 删 去 例 3. 24 中 的 25 句 

25w/ 

LISTw/ 

10 INPUT A,B,C 

20F 王 (AxA 二 BxB)/C 

30 PRINT“F 一 ”;F 

40 END。 

2. 删 去 相 邻 的 者 干 行 

格式 :DEL 〈 行 号 1),( 行 号 2》 

作用 : 删 去 指定 行 号 内 的 语句 。 

DEL 〈 行 号 1),( 行 号 2 一 一 删 去 包括 行 号 1 和 行 号 2 之 
间 的 全 部 语句 。 

3. 删 除 全 部 程序 行 

欲 删除 全 部 程序 行 , 最 简单 的 办 法 就 是 敲 入 NEW 命令 。 当 
然 , 也 可 以 用 上 述 的 DEL 命令 ,在 此 种 情况 下 , 行 号 1 应 该 是 程 
序 的 起 始 行 行 号 , 行 号 2 是 程序 的 最 末 行 行 号 。 
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问题 与 思考 


1. 哪些 情况 下 用 赋值 语句 使 变量 获得 数据 比 用 INPUT 更 
方便 ? 

2.INPUT 和 GET 语句 的 主要 区 别 是 什么 ? 

3. 赋值 语句 和 表达 式 有 什么 关系 ? 

4. 逗号 在 哪些 地 方 用 到 ? 其 作用 如 何 ? 

5. 一 个 语句 放 在 程序 的 任何 位 置 上 其 运行 结果 均 相 同 吗 ? 
为 什么 ? 举 出 一 个 例子 。 


习题 三 


1. 按 格 式 写 出 下 列 程序 运行 的 结果 (为 简便 ,每 句 后 的 巡 被 省 
略 , 下 同 )。 

10 INPUT“ 请 输入 数据 :”;A,B,C,D,E,F,G,H 

20 WwW 一 A 十 B 十 C 十 D 十 E 十 FE 十 G 十 H 

30 PRINT A,B,C,D,E,F,G,H 

40 PRINT 

50 PRINT“A ”“B> ,CD?” 

60 PRINT A,B,C,D 

70 PRINT“E”,“F”,“G”，“H?” 

80 PRINT E,F,G,H 

90 PRINT“A 一 ”;A,“B 一 ”;B，“C 一 ”3 C 

100 PRINT D;E;F;G;H 

110 PRINT“W 一 ”3;W 

120 END 

RUNw 
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请 输入 数据 :1. 111111111,2. 222,3. 333,4. 444,5. 555, 6. 
66,2,5u/ 

2. 指出 下 列 程序 的 书写 错误 。 

求 Me-ecos(aot 十 由 ) 的 值 , 其 中 M 王 10,B 王 3. 5,t 一 3,0 一 
30" ,一 5。 程序 如 下 ， 

10 INPUT M,T 

20 wo 一 30” 

30 中 一 5 

40 H 王 Mx*E”` (一 Bx*T) *COSCoxT 工 十 中 ) 

50 8 一 3.5 

60 PRINT H,B 

70 END 

RUN 

? 10 3.5 

3. 编写 下 列 问 题 的 程序 。 

志 求 

(和 xj] 十 VDe 
的 值 ( 自 己 给 出 所 需 数据 ) 。 

@@ 按 下 列 格 式 打印 表格 (编写 出 程序 ) 。 

姓名 性 别 年 龄 班级 

张扬 男 15 初 二 . 一 

李 芳 女 14 初 二 .二 
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第 四 章 ”转向 和 分 支 程序 


在 实际 应 用 中 ,有 时 候 希望 跳 过 一 些 语句 或 根据 某 种 条 件 
来 选择 执行 某 些 语句 ,这 就 要 用 到 转向 和 条 件 分 支 语句 。BASIC 
为 达到 这 种 目的 ,提供 了 转向 语句 和 条 件 语句 。 


4.1 转向 语句 


格式 : GOTO 〈 行 号 》 

作用 : 无 条 件 转 到 指定 行 号 的 语句 去 执行 其中: GOTO 是 
转向 语句 的 标志 , 行 号 是 程序 中 需要 转 去 的 语句 行 号 。 转 向 语句 
使 我 们 能 够 多 次 地 执行 某 些 语句 ,也 可 以 使 我 们 跳 过 某 些 语句 。 

我 们 来 看 下 面 的 例子 (为 了 简洁 起 见 , 从 本 章 起 ,语句 末尾 
的 回 车 键 巡 省 写 ,但 在 输入 程序 时 一 定 要 痪 入 ,切记 ) 。 

例 4.1 分 别 给 出 三 组 A.B、C 的 值 , 求 


RE 
(CA 十 了 一 记 )/CA2 十 B?) 


的 值 。 
5I=9 
18 INPUT “输入 数据 :5h,B,C 
28I=I+l 


3eu=- (+Bn<CcC-RyAB/A/Cc)/V (Rn+B*kB》 

48 PRINT “第 ";I;… 组 的 值 " 

5 交合 辐 和 全 交 人 沿 克 史记 
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68 6G0T0 16 
7 了 9 END 


]RUN 
输入 数据 :3,4,5 
第 1 组 的 值 


h=3 B=q C=5 u=41.674 
输入 数据 ; 


在 这 个 例子 中 ,首先 输入 第 一 组 值 , 经 过 计算 后 分 别 输出 
ABC\、W 的 值 。 当 执行 到 第 60 句 时 ,又 转 回 到 第 10 句 , 要 求 
输入 第 二 组 值 。 如 此 重复 ,直到 三 组 值 输入 完毕 。 但 由 于 60 句 
是 一 个 无 条 件 转向 语句 ,因而 尽管 三 组 值 已 输 完 ,但 程序 仍然 要 
求 再 输入 数据 。 这 时 ,如 果 希 望 程序 停止 执行 ,只 好 痪 CTRL 十 C 
键 ,使 程序 强行 中 断 回 到 “] ”提示 状态 。 

程序 比较 简单 。 其 中 的 变量 1 用 于 统计 输入 了 几 组 值 。 


4.2 条 件 语句 


对 于 例 4. 1 的 程序 ,我 们 已 指出 它 是 不 能 自动 停止 执行 的 
《除非 我 们 不 输入 数据 ), 原 因 就 在 于 使 用 了 一 个 无 条 件 转向 语 
句 GOTO 10, 导 致 它 老 是 转向 第 10 句 。 但 现实 使 用 中 ,总 希望 
执行 若干 次 以 后 能 够 自动 停 下 来 ,因而 需要 用 到 条 件 语句 。 


4.2.1 条 件 语句 的 格式 和 作用 


1. IF-GOTO 型 条 件 转向 语句 
格式 : IF (条 件 ) GOTO ( 行 号 》 
。81 。 


作用 : 如 果 条 件 成 立 , 就 把 控制 转 到 指定 的 行 号 去 执行 。 和 否 
则 ,执行 该 语句 的 后 继 语 句 。 

所 谓 条 件 成 立 与 否 , 是 这 个 意思 ， 

如 果 条 件 是 关系 表达 式 或 巡 辑 表达 式 , 只 要 表达 式 的 值 为 
真 ,那么 就 称 条 件 成 立 , 否 则 称 为 条 件 不 成 立 ( 即 关 系 表达 式 的 
值 为 假 ) 。 

如 果 条 件 是 算术 表达 式 , 只 要 算术 表达 式 的 值 不 为 零 ( 若 表 
达 式 的 绝对 值 小 于 或 等 于 2. 9387E 一 39, 则 作为 零 处 理 ), 就 称 
条 件 成 立 , 否则 称 为 条 件 不 成 立 ( 即 算术 表达 式 的 值 等 于 零 ) 。 

如 果 条 件 是 字符 串 表 达 式 ,只 要 字符 串 表 达 式 的 值 不 是 空 
串 , 就 表示 条 件 成 立 , 否 则 就 表示 条 件 不 成 立 ( 即 字符 串 表 达 式 
的 值 为 空格 ) 。 

这 里 对 条 件 成 立 与 否 的 解释 ,适用 于 整个 CEC-BASIC 的 条 
件 。 

我 们 用 例子 来 说 明 条 件 语 句 的 用 法 。 

例 4.2 为 便于 对 照 , 仍 用 例 4. 1 为 例 ,说 明 正 中 条 件 是 
关系 表达 式 的 情况 : 


5T= 4 
19 INPUT “输入 数据 :"!8,B,C 
20I= 了 JTJt+li 


3ou-(Rr+Bn<c-nR/B/AC VCRyrR+BB》 

dg PRINT “第 "5 组 的 值 " 

58 PRINT “h=3h 和 91"B=5B5 7C= 0 = 庆 
6@ IFI《360T0 19 

7 PRINT “程序 结束 ” 

88 END 


。82 。 


]RUN 
输入 数据 :3 445 


第 1 组 的 值 
h=3 B=4 C=5 uc=41.974 


输入 数据 :7,8,9 


第 2 组 的 值 
h= 了 7 B=8 C=9 u=1187767.57 


输入 数据 :1.35,3.2q,4.78 


第 3 组 的 值 
h=1.35 ”B-3.24 C-4.78 U=22.4789377 


在 第 60 句 , 如 果 I<3 为 真 ,就 再 转 到 第 10 句 输入 一 组 值 
并 执行 计算 和 输出 。 当 I 王 3 时 (实际 已 输入 了 三 组 值 ) ,条件 不 
成 立 , 就 自动 执行 第 60 句 的 后 继 语句 70 PRINT“ 程 序 结 束 ”， 
打印 出 一 个 程序 结束 标志 ,提示 用 户 , 需 要 输入 计算 的 三 组 数据 
已 经 完成 。 这 时 系统 返回 到 “]? 提 示 状 态 。 

请 读者 将 该 例 中 的 条 件 分 别 改 为 算术 表达 式 和 字符 串 表 达 
式 后 再 试 之 ,并 考虑 三 种 表达 式 的 用 法 有 什么 不 同 。 

2. IF-THEN 型 条 件 语句 

格式 : IF 〈 条 件 》 THEN 〈 行 号 》 

作用 : 如 果 条 件 成 立 , 则 执行 THEN 之 后 指定 行 号 的 语句 。 
否则 ,顺序 执行 该 语句 的 后 继 语 句 。 

这 里 的 条 件 , 其 含义 同 前 述 , 它 可 以 是 关系 表达 式 、 逻 辑 表 
达 式 、 算 术 表 达 式 或 字符 串 表 达 式 。 行 号 必须 是 程序 中 出 现 的 行 
号 。 这 种 形式 的 条 件 语句 同 下 〈 条 件 》 GOTO ( 行 号 形式 的 条 
件 语句 用 法 完全 相同 。 在 前 面 例 4. 2 的 例子 中 ,只 要 把 程序 中 
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的 IF-GOTO 换 成 IF-THEN 均 能 正确 运行 。 请 读者 自己 完成 。 

3. IF-THEN (语句 型 条 件 语句 

格式 : IF (条 件 》THEN 《语句 序列 》 

作用 : 如 果 条 件 成 立 , 则 执行 THEN 之 后 给 定 的 语句 序列 ， 
如 果 没 有 转向 语句 ,执行 完 给 定语 句 序列 后 顺序 执行 后 继 语句 。 
如 果 条 件 不 成 立 ,就 直接 执行 后 继 语 句 。 

这 里 的 语句 序列 可 以 是 一 个 或 多 个 语句 。 若 是 多 个 语句 , 语 
句 彼 此 之 间 用 冒号 ^:” 隔 开 。 


例 4.3 求 wW 的 值 
w 人 人 SinX x 过 (0 是 a 尖 0 
COS(ax 十 5) 其 它 
编 出 程序 如 下 : 


19 INPUT “输入 数据 :56"X 

286 划 = COS (RyX+5) 

39 IFR >6hNDX>9@THEN 册 =X /R 站 EXP(-X 冰 XV/ 
(2 水 有 水 R))》 本 SIN(X) 


48 PRINT “ 失 = 有 有 ”人 0 
56 PRINT “程序 结束 " 

69 END 

]RUN 

输入 数据 :15,21 

h-15 ”X=21 Ue.439668666 

程序 结束 
程序 执行 情况 是 这 样 的 : 
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执行 第 10 句 首 先 输入 A`X 的 值 (本 例 中 为 15 和 21)。 因 
为 w 的 取 值 只 有 两 种 情况 ,因而 先 假设 一 种 条 件 满 足 , 这 就 是 
第 20 句 的 作用 。 第 30 句 再 来 判断 给 定 条 件 是 否 成 立 。 若 条 件 
成 立 , 则 Ww 又 送 入 了 X/A * EXP( 一 Xx*X/(2x*AxA))xSIN 
(X) 的 值 ,这 就 把 先前 20 句 送 入 的 假定 值 冲 掉 了 。 若 条 件 不 成 
立 , 那 么 THEN 之 后 的 赋值 语句 不 执行 , w 的 值 就 是 20 句 赋 给 
的 值 ,所 以 ,第 40 句 输出 的 w 值 总 是 正确 的 。 

至 此 ,有 的 读者 会 问 , 上 例 中 的 THEN 之 后 是 一 个 赋值 语 
句 , 其 后 能 否 是 IF 语句 呢 ? 当然 是 可 以 的 。 正 的 最 典型 情况 
是 ， 

IF〈 条 件 1) THEN IF 条件 2》 THEN… 

4. 多 路 分 支 程序 

格式 : ON (n)“ ”0D ( 行 号 1》[( 行 号 2》…( 行 号 my)?] 

作用 : 根据 n 的 值 ,选择 指定 行 号 中 的 第 n 个 行 号 的 语句 
来 执行 。 

这 里 的 n 称 为 条 件 变 量 , 其 值 必须 是 正 整 数 且 0 委 n 委 255。 
n 也 可 以 是 一 个 复杂 的 算术 表达 式 。 如 果 n 的 值 为 实数 ,那么 机 
器 自动 转换 成 整数 。 如 果 n 的 值 为 零 或 者 n 值 超 界 ( 即 n 所 指 
的 行 号 不 在 程序 中 ) ,那么 就 执行 后 继 语 句 。 如 果 n<0, 就 发 生 
语法 出 错 。 

例如 : ON 3 GOTO 20,60,80, 因 为 n 一 3, 所 以 应 该 转 到 第 
80 句 去 执行 。 实 际 上 ,n 的 值 必 须 和 行 号 的 排列 顺序 号 相对 应 。 
应 该 特别 强调 ,这 种 多 路 分 支 , 不 是 转 到 第 n 行 去 执行 。 

例 4.4 求 立 的 值 。 
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A 十 BX2 十 CX3 0. 5<<T<<1. 5 


ACcos(BX2) 1. 5<T<2.5 
YY 二 1、/A 十 BX5 十 ee 2. 5<T 一 3.5 
mn 1B 十 去 | 3. 5<T<<4.5 


要 用 ON 形式 的 条 件 语 句 来 解决 这 个 问题 ,关键 是 构造 出 
一 个 n, 使 其 值 同 T 有关 且 刚好 落 到 所 需 行 号 上 .我 们 仔细 观察 
就 会 发 现 , 这 里 工 的 变化 是 有 规律 的 。 如 果 我 们 直接 用 了 来 代 
表 n, 那 么 当 T=0. 5 时 就 无 法 资 成 1, 因而 在 T 基础 上 加 0.5 
再 取 整 , 即 n=INT(T 十 0. 5)。 试 一 试 能 否 满足 要 求 。 在 构造 n 
值 的 同时 ,我 们 假定 Y 的 四 种 情况 依次 对 应 n 的 1,2,3,4。 计 
算 Y 的 表达 式 的 语句 行 号 在 ON 中 的 排列 顺序 号 也 要 和 nm 值 
对 应 。 还 是 先 来 看 下 面 的 程序 吧 。 


19 INPUT “输入 数据 :…5T 
20R=5:8=6:C0= 了:X= 8 
3eN= INT (T+ 6.5) 

4 ON N 6GQTO 69,89, 198, 129 
56@ PRINT “T 值 超 界 " 


55 GO0T0O 1q496 
60Y=R+BrXX+ChkXxX、~3 
?9 60TQ 136 
86eY= 委 水 C 冰 COS (B 水 X 水 X)， 
98 60T0 139 


196Y= SQR (Rt+BrXxX~3)+ EXP(C) 
116 60T0 136 
126Y = LOG (RhRBS (B+C/X)) 
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138 PRINT “T= Ti “YiY 
1486 PRINT “程序 结束 ” 
158 END 


]RUN 

输入 数据 :1 

T=1 Y=3973 

程序 结束 

这 里 反复 运行 了 四 次 ,每 种 情况 都 执行 了 一 次 ,我 们 给 出 一 
个 T 值 ,就 得 到 相应 的 一 个 N 值 。 在 上 例 的 第 40 句 中 , 若 

N 王 1, 相当 于 GOTO 60; 

N 王 2, 相当 于 GOTO 80; 

N 一 3, 相 当 于 GOTO 100; 

N 王 4, 相 当 于 GOTO 120。 

对 于 有 规律 变化 的 量 用 ON 多 路 分 支 语 句 还 是 比较 方便 
的 。 但 是 ,对 于 无 规律 或 者 不 容易 找 出 规律 的 问题 ,要 使 用 ON 
就 麻烦 一 些 了 。 这 种 情况 有 两 种 方法 可 以 解决 。 一 是 重复 书写 
ON 中 的 行 号 ,如 ON n GOTO 60,60,80,100,100 等 。 请 看 下 面 
的 例子 。 另 一 种 实现 方法 见 例 4. 6。 

例 4.5 问题 同 例 4.4, 只 是 条 件 改 变 了 。 


A 十 BX2 十 CX3 0<T 一 2 
ACcos(BX2) 2<T 一 3 

Y 一 41、 人/A 十 BX5 二 es 3<T 一 5 
In| B 十 浆 | 5<T<8 
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19 _ INPUT “输入 数据 ;…;5T 

290R=5:B= 6:C= 了 :X= 8 

38N= INT(T+ 1) 

498 ON N 6G0T0 69,69,89, 199, 169, 129, 129, 129 
58@ PRINT “T 值 超 界 " 


55 60T0O 149 
69eY=PhR+Bp*+rXyHrX+CcX 和 ~3 
?9 60TO 136 

89eY=R*yC CS (B 站 X 水 X) 
99 6G0T0 139 


19goY -= sSQR (+BykX、~3)+ EXP(C) 
118 GO0TO 136 

120Y = LoG6 (hpBS (B+CVX)》 

138 PRINT “T=TI” ieYee3Y 

148 PRINT “程序 结束 " 

156 END 


]RUN 


输入 数据 :3.5 
T=3.5 YY=1152,. 10387 


程序 结束 
第 40 句 中 相同 的 行 号 60,100,120 重复 了 多 次 ,为 的 是 使 
条 件 变量 N 的 值 和 行 号 相对 应 。 对 于 上 述 问 题 , 也 可 用 下 面 的 
办 法 来 实现 ， 
例 4.6 用 多 个 正 实 现 ON 多 路 分 支 。 
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19 INPUT “输入 数据 :”:T 
20h=5:B=6:C= 了:X= 8 

39 IFT《2hRNDT >” =8THEN 66 
35 IFT>=2hNDT3THEN 86 
406 IFT> =3hNDT《5THEN 166 
45 IFT> =5RhRNDT《 8 THEN 120 
56 PRINT "“T 值 超 界 " 


55 60T0 149 

66Y=R+B 交 XyyXxX+CcrXx~3 
7 了 9 60T0 139 

89oY=RhRyhkCcyhr cos (B 交 X 冰 X) 
99 60T0 139 


1006Y = SGQGR (+B*rX~3)+ EXP(《(C)》 
116 6G0T0 136 

1286Y = LOG(hRBS (B+C/X)) 

1386 PRINT “T=” Ti JoY= 2Y 

146 PRINT “程序 结束 ” 

156 “END 


]RUN 

输入 数据 :1.5 
T=1.5 Y=3973 
程序 结束 


请 读者 自己 试 一 试 其 它 值 ,运行 结果 同 例 4. 5 是 否 一 样 。 
实际 上 ,用 多 个 IF 来 代替 ON 的 功能 有 时 更 为 简单 ,因为 
不 必 控 空心 思 去 构造 条 件 变量 n 同 语句 行 号 的 对 应 关系 。 
不 论 是 转向 语句 还 是 条 件 语句 ,语句 中 要 求 的 行 号 都 必须 
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是 程序 中 能 够 提供 的 行 号 ,否则 就 会 发 生 错误 。 
4.2.2 条 件 语句 的 执行 流程 


前 面 详细 介绍 了 条 件 语句 的 用 法 ,为 清楚 起 见 , 下 面 给 出 它 
们 各 自 的 执行 流程 图 。 
1. IF (条 件 》GOTO 〈 行 号 》 


条 件 成 立 否 ? 


否 | 


图 4.1 正 一 GOToO 执行 流程 图 
2. IF 〈 条 件 》THEN ( 行 号 》 


条 件 成 立 否 ? 


图 4. 2 IF 一 THEN 执行 流程 图 
3. IF 〈 条 件 》 THEN 〈 语 名 序列 
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条 件 成 立 否 ? 


图 4.3 IF 一 THEN 〈 语 句 序列 》 执行 流程 图 
4. ON n GOTO ( 行 号 1),( 行 号 2》…( 行 号 my》 


图 4.4 ON n GOTO 执行 流程 图 
从 以 上 四 个 流程 图 ,我 们 就 可 以 清楚 地 看 见 条 件 语句 的 执 
行 流程 。 


4.3 读数 据 和 置 数据 语句 


由 前 面 的 示例 中 已 经 发 现 ,为 使 变量 获得 数据 ,几乎 都 采用 
INPUT 语句 。 虽 然 这 种 输入 数据 的 方式 既 简 单 又 方便 ,但 如 果 
我 们 要 重新 执行 一 次 程序 ,那么 仍然 得 重新 从 键盘 上 敲 入 值 , 即 
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使 先前 已 经 输入 过 的 数据 ,也 必须 如 此 .有 什么 办 法 能 使 我 们 仅 
敲 入 一 次 数据 而 可 以 多 次 重新 运算 程序 呢 ? 读数 据 和 置 数据 语 
句 是 最 好 的 帮手 。 


4.3.1 读数 据 、 置 数据 的 格式 和 作用 


格式 :READ 〈 变 量 表 》 
作用 : 将 DATA 语句 提供 在 数据 区 的 数据 依次 送 入 到 指定 
变量 名 中 。 
这 里 的 变量 表 是 一 个 或 多 个 变量 名 ,如 果 有 多 个 变量 名 , 变 
量 名 彼此 之 间 要 用 “,” 隔 开 。 
格式 : DATA〈 数 据 表 》 
作用 : 为 机 器 内 部 开辟 的 数据 区 提供 数据 。 
数据 表 是 一 个 或 多 个 数据 如果 是 多 个 数据 ,数据 彼此 之 间 
必须 用 “,? 隔 开 。 这 里 所 说 的 数据 只 能 是 数值 常数 或 字符 串 常 
数 ,不 能 是 变量 名 、 函 数 或 带 运算 符 的 表达 式 。 
如 果 一 个 程序 中 使 用 了 READ 语句 ,那么 程序 中 一 定 要 有 
DATA 语句 。 
我 们 举例 说 明 READ 和 DATA 语句 的 用 法 ， 
例 4.7 编写 一 个 程序 , 它 能 够 按 如 下 形式 统计 和 打印 学 
生成 绩 。 (保留 一 位 小 数 ) 
学 号 “姓名 数学 语文 物理 化 学 总 分 
(X1)  (X2$) (X3)  (X4)  (X5)  (X6) 〈W) 


631 张扬 85 90 92 73 

633 李 力 93 86 90 91 

635 王 为 78 82 80 76 
平均 成 绩 
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假设 :X1 一 一 学 号 ,X2$ 一 一 姓名 ,X3 一 一 数学 ,X4 一 一 语 
文 ,X5 一 一 物理 ,X6 一 一 化 学 ,w 一 一 总 分 。S3 一 一 数学 的 和 ， 
S4 一 一 语文 的 和 ,S5 一 一 物理 的 和 ,S6 一 一 化 学 的 和 ,S7 一 一 总 
分 和 ,I 一 一 学 生 人 数 。 
解决 该 问题 的 思路 是 : 

中 读 入 一 个 学 生 的 学 号 、 姓 名 以 及 各 科 成 绩 。 

将 各 单 科 成 绩 累加 求 和 。 

@ 求 各 个 学 生 的 各 科 总 分 。 

个 用 DATA 语句 提供 数据 ,用 READ 语句 读 入 数据 。 

@ 按 报表 格式 打印 。 
下 面 是 程序 清单 


5S3>=0:Sqd = 6:S5 = 0:S6 = 9:S7 = 8 

10I=6 

15 PRINT “学 号 “和 妃 姓 名 2 数学 “ 纪 语 文 “ 刀 物理 2 化 学 “5 

总 分 " 

296 世 = 9 

25I=-Ir+1i 

3 READ X1,，X2$,X3，Xq，X5，X6 

qdgeu= x3+Xq+ Xx5 + X6 

59 S3 = S3 + X3 

6 Sqd = Sqd + Xq 

798 S5 = S5 + X5 

89 S$S6 = S6 + X6 

98 S 了 7 = S 了 + 出 

1986 PRINT X1” ”1X2 和 1 “1X35 IIXq 3X5S5 ”KG63 
“” 旨 

lt9 IF II >3THEN 29 

113 S3 = INT (3S3/ TI 140) 7/ 19 


se。 93 。 


114 Sq = INT (34 /TI*r16)V 19 
115 S5 = INT (35 /TI 196) 7/ 19 
116 S6 = INT (S6 /TI 19) 7/ 19 
117 S 了 7 了 = INT (S 了 7 / 工 让 19) / 19 


129 
136 
135 
146 
156 


]RUN 


PRINT “平均 成 绩 “1S33 "1S4 呈 
DATR 631 "张扬 ”85,99,92,73 
DRTR 633" 李 力 …,93,86,98,91 
DARTR 635,… 王 为 "78,82,89,76 
END 


学 号 姓名 数学 语文 物理 化 学 总 分 
631 张扬 886 98 92 ?3 346 
633 李 力 93 86 9%8 91 366 
635 王 为 ?78 82 89 76 316 
平均 成 绩 ”85.3 86 87.3 88 338.6 


”1S53” ”1S673” 


”1S7 


这 个 程序 中 用 到 了 READ 语句 和 DATA 语句 。DATA 的 作 
用 就 是 把 张扬 . 李 力 、 王 为 三 个 学 生 的 学 号 姓名 和 成 绩 依次 放 
在 数据 区 中 , 当 执 行 到 第 30 句 的 READ 语句 时 ,就 直接 到 数据 
区 去 取 学 生 的 这 些 数据 。 经 过 统计 和 计算 处 理 ,打印 出 报表 。 

READ 和 DATA 语句 究竟 是 如 何 配合 使 用 的 呢 ?原来 ,机 器 
在 内 存 中 开辟 了 一 个 区 域 ,专门 用 来 存放 DATA 语句 提供 的 数 
据 , 称 为 数据 区 。 按 照 DATA 语句 在 程序 中 出 现 的 先后 顺序 , 依 
次 将 DATA 语句 提供 的 数据 存放 在 数据 区 中 。 为 了 指出 数据 区 
中 数据 的 位 置 ,系统 内 部 还 专门 设立 了 一 个 指针 ,指向 数据 区 的 
第 一 个 数据 位 置 ,我 们 称 为 初始 位 置 。 随 着 数据 的 读 取 ,指针 可 
以 自动 向 后 推移 。 指针 总 是 指向 正 要 读 取 的 数据 。 在 本 例 中 , 数 
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据 和 指针 的 初始 位 置 如 图 4. 5 所 示 。 

当 输入 程序 后 ,DATA 语句 提供 的 数据 在 数据 区 内 存放 的 
情况 如 图 4. 5Ca) 所 示 ,指针 指向 当前 值 631。 这 就 是 说 ,如 果 要 
读 入 的 话 , 首 先 读 入 的 就 是 631。 当 第 30 句 执行 以 后 ,就 把 张扬 
的 数据 取 到 了 相应 的 变量 中 。 这 时 指针 已 指向 633 这 个 值 了 
(准备 下 一 次 读 取 ), 如 图 4. 5(b) 所 示 。 第 二 次 执行 READ 语句 
时 , 李 力 的 全 部 数据 又 读 入 到 相应 的 变量 中 ,然后 把 指针 指向 
635。 如 此 重复 ,直到 把 三 个 学 生 的 数据 读 完 。 当 读 取 了 王 为 的 
化 学 成 绩 76 以 后 ,指针 就 指向 数据 区 末尾 的 一 个 空 单 元 ,如 图 
4. 5(c) 所 示 。 如 果 这 时 继续 执行 READ 语句 ,就 会 出 现 数据 不 
够 用 的 错误 。 因 为 指针 指向 空 单元 就 表示 已 经 没有 数据 可 供 读 
取 了 。 数 据 区 和 数据 指针 把 READ 和 DATA 语句 联系 起 来 了 。 

从 以 上 可 知 ,READ 并 不 是 直接 在 DATA 语句 位 置 去 读 取 
数据 ,因而 DATA 在 语句 中 的 位 置 是 无 所 谓 的 ,可 在 READ 之 
前 ,也 可 在 其 后 。 

READ 和 DATA 语句 的 优点 是 当 我 们 再 次 用 RUN 重新 运 
行程 序 时 不 必 再 输入 数据 ,因为 数据 已 写 入 了 程序 中 ,而 每 次 用 
RUN 重新 运行 时 ,系统 总 是 把 指针 指向 初始 位 置 。 缺 点 也 是 显 
然 的 。 由 于 数据 均 要 写 入 程序 中 ,因而 增加 了 程序 的 长 度 。 


4.3.2 使 用 READ 和 DATA 语句 时 的 注意 事项 


1. READ 和 DATA 语句 必须 联合 使 用 ,只 要 程序 中 用 到 了 
READ 语句 ,不 管用 了 几 次 ,也 不 管 书写 了 几 个 ,至 少 应 有 一 个 
DATA 语句 与 之 对 应 。 由 于 READ 只 能 从 数据 区 读 取 数 据 , 因 而 
必须 有 DATA 向 数据 区 提供 数据 ,也 只 有 DATA 才能 向 数据 区 
提供 数据 。 

2. READ 语句 中 变量 的 个 数 、 类 型 .顺序 必须 和 DATA 语 
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图 4.5 READ 和 DATA 执行 示意 图 


语句 提供 的 数据 相对 应 。 

一 般 来 说 ,READ 语句 中 有 几 个 变量 名 ,DATA 语句 就 必须 
提供 几 个 数据 (当然 可 以 多 于 变量 的 个 数 ) 。 如 果 变量 名 多 而 数 
据 少 , 则 有 些 变量 就 得 不 到 值 。 因 而 发 生 读 入 数据 出 错 。 

3. 一 个 程序 中 可 以 有 一 个 很 长 的 DATA 语句 ( 即 数据 多 )， 
也 可 以 把 一 个 长 的 DATA 语句 拆 成 几 个 短 的 DATA 语句 ( 即 数 
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据 少 一 些 ) 。 如 例 4. 7 中 的 130、135、140 语句 可 以 合并 成 一 个 
DATA 语句 ,也 可 以 把 它们 再 分 小 一 些 。 通常 把 相对 独立 的 数据 
放 在 同一 个 DATA 之 后 ,便于 检查 和 修改 。 如 例 4. 7 那样 ,每 个 
学 生 的 数据 用 一 个 DATA 语句 。DATA 的 个 数 不 影响 数据 区 。 
但 程序 中 各 个 DATA 的 先后 顺序 对 数据 区 数据 顺序 有 影响 。 

4. DATA 之 后 只 能 是 常数 。 包 括 数值 常数 (可 正 可 负 ) 和 字 
符 串 常数 , 且 数 据 之 间 必 须 用 “,? 隔 开 。 

5. DATA 在 程序 中 的 位 置 是 任意 的 。 但 不 同行 号 的 两 个 
DATA 的 先后 顺序 是 重要 的 ,因为 它们 的 先后 顺序 决定 了 其 提 
供 的 数据 在 数据 区 内 的 先后 顺序 。 同 样 地 ,同一 个 DATA 之 后 
的 数据 排列 的 先后 也 是 重要 的 ,这 个 顺序 取决 于 它 和 READ 语 
句 中 变量 名 的 对 应 关系 。 


4.4 数据 指针 的 恢复 


我 们 已 经 知道 ,每 从 数据 区 读 取 一 个 数据 ,数据 指针 就 向 下 
移动 一 个 位 置 , 当 把 数据 区 中 数据 读 完 以 后 ,指针 就 指向 数据 区 
未 尾 后 的 一 个 空 单元 ,这 时 如 果 继 续 读数 据 就 会 发 生 错误 .如果 
我 们 再 从 头 开始 读 取 数 据 呢 ? 当然 是 可 以 的 。 但 必须 设法 把 指 
针 拔 回 到 数据 区 的 开始 位 置 所 谓 数据 指针 的 恢复 ,就 是 把 数据 
指针 拨 回 到 开始 位 置 , 使 之 指向 第 一 个 数据 。 如 图 | 
已 经 在 数据 区 的 未 尾 了 ,恢复 指针 就 是 使 它 重 新 指向 第 一 
据 631, 恢 复 到 图 4. 5(a) 的 状态 。 恢 复数 据 指针 用 到 的 了 
RESTORE 。 

格式 , RESTORE 

作用 : 将 数据 区 中 的 数据 指针 拨 回 到 数据 区 的 初始 位 置 

指向 第 一 个 数据 ), 以 便 READ 语句 重新 读 取 数据 区 的 数据 。 
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例 4.8 求 下 式 的 值 。 
Y 一 /Ai 十 Az? 十 As 十 A4 十 As 
十 世面 干 丽 干 本 王权 二 也 
十 Ci 十 C: 十 Cs 十 C4 十 Cs 
其 中 :， Ai,As,As,AAs 分 别 取 值 为 11. 42,135,72. 4,58. 3， 
66. 4。 


B,,B,,Bi,Bi,Bi 分 别 取 值 为 11. 42,135,72. 4,58. 3， 
66. 4。 

CCcz,csyciycs 分 别 取 值 为 11. 42,135,72. 4,58. 3， 
66. 4。 


显然 ,三 组 值 对 应 相同 .对 这 个 问题 的 程序 可 以 用 多 种 办 法 
来 实现 。 下 面 用 RESTORE 恢复 数据 区 的 办 法 来 解决 该 问题 。 


19 “RERD R1,h82,R3,hRq,h5 

15 “RESTORE 

298 “RERD B1,B2,B3,Bq,B5 

25 “RESTORE 

38 “RERD Cl1,C2,C3,Cq,C5 

de ul = R1 + Rh2 + h3 + Rhq + 85 

59 W2 = B1 + B2 + B3 + B4q + B5 

68 u3 = C1 + C2 + C3 + Cq + 5C5 
7eoY- SQR (ul) +u2^ (1/3)+u3^~(1/94》 
898 PRINT “Y=…iY 

98 DRTR 11.42, 135,72.4,58.3,66.4 
198 PRINT “程序 结束 ” 

116 ”END 
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]RUN 
Y=29.8429754 
程序 结束 


程序 的 执行 情况 是 : 当 10 句 读 入 Al,Az,As,AtAs 以 后 , 指 
针 已 指向 数据 区 末尾 空白 单元 了 。 通 过 执行 第 15 句 的 RE- 
STORE 语句 ,就 把 指针 拨 回 到 第 1 个 数据 11. 42 的 位 置 。 当 第 
20 句 读 入 Bi,B:,Bs,Bi,Bs 时 ,指针 又 依次 下 推 。 如 此 重复 。 巧 妙 
的 使 用 RESTORE 语句 ,就 可 以 使 我 们 能 够 重复 读 取 数 据 区 的 
数据 。 对 于 这 个 特定 的 问题 ,还 有 更 简洁 的 办 法 ,请 读者 自己 考 
虑 。 

在 使 用 RESTORE 语句 时 需要 注意 : 

GDRESTORE 只 能 把 数据 指针 拨 回 到 数据 区 的 初始 位 置 ,而 
不 能 拨 到 中 间 某 个 任意 的 数据 位 置 。 

@ 只 有 当 需 要 从 头 读 取 数 据 时 才 需 要 用 RESTORE 来 恢复 
指针 。 

@@ 哪 个 READ 语句 需要 从 数据 区 的 第 一 个 数据 位 置 重新 
开始 读 入 ,就 在 那个 READ 语句 执行 之 前 给 出 一 个 RESTORE 
语句 (在 程序 中 RESTORE 的 位 置 不 一 定 必 须 放 在 READ 之 前 ， 
但 其 执行 必须 在 READ 之 前 ) 。 

则 如 果 恢 复 指针 后 某 些 位 置 上 的 数据 并 不 需 用 ,可 以 用 无 
用 的 变量 名 占据 相应 的 数据 位 置 。 如 我 们 仅 需要 恢复 B:,B4,Bs 
和 Ca,Ct,Cs 可 用 如 下 程序 ， 

例 4.9 恢复 读 取 部 分 数据 。 


19 “RERD AR1,h2,h3，hq， RAR5 
15 “RESTORE 
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29 ”RERD T,T,B3,B4,B5 

25 “RESTORE 

36 ”RERD T,T,C3,Cq,05 

48 PRINT R15” ”1821 5631” 545 "585 
58@ PRINT B35” “;Bqi” “”;B5 

55 PRINT C35” “5Cq45” ”35C5 

98 DRTR 11.42,135,72.4,58.3,66.4 

199 PRINT“ 程序 结 束 " 

118 ”END 


]RUN 

11.42 135 72.4 58.3 66.94 

7 了 2.4 58.3 66.4 

72.4 58.3 66.4 

程序 结束 

这 里 的 工 就 是 无 用 变量 , 它 纯粹 就 是 用 来 占据 11. 42 和 
135 两 个 数据 位 置 的 。 

@@ 需 要 特别 强调 的 是 :RESTORE 不 是 使 控制 返回 到 程序 中 
的 第 一 个 READ 语句 去 重新 读 入 数据 。RESTORE 只 管 恢 复数 
据 指针 ,至 于 是 否 用 READ 去 读 入 , 则 由 用 户 根据 问题 需要 来 
确定 。 


4.5 框图 法 


在 程序 设计 中 ,如 果 问 题 比 较 简单 ,那么 可 以 直接 编写 程 

序 。 但 是 ,实际 应 用 中 的 问题 往往 比较 复杂 ,需要 考虑 的 因素 比 

较 多 ,程序 的 逻辑 结构 也 很 复杂 ,因而 面 对 问 题 直接 编写 程序 就 

会 觉得 千 头 万 绪 无 从 下 手 。 为 此 ,我们 引入 程序 设计 中 的 框图 
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法 。 所 谓 框图 法 ,就 是 把 解决 问题 的 步骤 用 方 框图 的 形式 表示 出 
来 ,然后 再 根据 方 框图 来 编写 程序 。 一 般 说 来 ,解决 问题 的 框图 
画 出 来 以 后 ,根据 框图 来 编写 程序 就 不 困难 了 。 

1. 框 图 法 的 表示 符号 

GD 用 芙 形 框 或 半圆 框 来 表示 判断 条 件 , 框 内 写 出 条 件 名 称 。 
如 : 条 件 成 立 否 ? 或 条 件 成 立 否 ? 

@ 用 长 方 框 来 表示 需要 进行 的 操作 , 框 内 写 出 操作 名 称 。 
如 ;sa 

多 用 箭头 标 出 逻辑 流向 。 通 常用 箭头 把 条 件 框 和 操作 框 联 
系 起 来 。 如 图 4. 6 所 示 。 


条 件 成 立 否 ? 


图 4.6 框图 联系 示意 图 
一 个 实际 问题 不 论 有 多 复杂 , 均 可 用 这 种 框图 描述 出 来 . 根 
据 用 户 的 水 平和 需要 ,框图 画 得 可 粗 ( 大 概 步骤 ) 可 细 ( 详 细 步 
又 ) 。 
2. 框图 的 例子 
例 4. 10 学 生 作息 时 间 的 框图 。 
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图 4.7 作息 框图 
实际 上 ,我们 每 个 人 每 天 都 在 按 一 定 的 框图 生活 .工作 和 学 
习 。 
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图 4.7 的 框图 还 是 比较 粗 的 , 它 只 描绘 了 一 天 的 活动 轮廓 。 
我 们 还 可 以 把 每 天 的 作息 时 间 详 细 画 出 来 .参照 这 个 例子 ,请 读 
者 自己 完成 。 


4.6 分 支 程序 实例 
例 4. 11 求 100 以 内 所 有 奇数 之 和 、 偶 数 之 和 。 


假设 用 X, 代表 奇数 之 和 ,X* 代表 偶数 之 和 ,X 代表 1 一 100 之 
间 的 自然 数 。 


10 XI = 9:X2 = 9:X = 
280X=Xr+1 
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25 PRINT X 
39 IF X 19869 60T0 96 

4e IFX= INT(XV/2)*2THEN 79 

58@ X1 = X1+X 

68 60T0 26 

7 xX2 = X2 +X 

89@ 60T0 29 

98 PRINT “奇数 之 和 =…X15” “偶数 之 和 = ”5X2 
198 PRINT “程序 结束 ” 

119 END 


]RUN 
奇数 之 和 =256668 ”偶数 之 和 =2585668 
程序 结束 


由 于 程序 运行 时 间 较 长 ,为 了 不 致 太 寂 莫 ,第 25 句 不 断 的 
输出 1,2,3…100 的 自然 数 。 
例 4. 12 编写 一 个 程序 , 它 能 够 统计 学 生成 绩 并 按 分 数 段 
打印 下 列表 格 :: 
分 数 段 100 90 一 99 80 一 89 70 一 79 60 一 69 60 以 下 
人 数 
百分比 % 


假设 分 别 用 Gioo Geo Gao.G、Geo.Gss 代表 各 分 数 段 的 人 
数 , 用 G 来 代表 学 生 的 成 绩 。Xio、Xso、Xso、X7o、Xeo、Xss 代表 各 分 
数 段 所 占 人 数 百分比 。I 代 表 学 生 人 数 。 解 题 思路 是 : 

@ 读 入 一 个 成 绩 , 就 判断 其 所 属 分 数 段 。 

@@ 求 各 分 数 段 所 占 人 数 百分比 。 
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@@ 按 表格 要 求 输出 。 
这 个 问题 比较 简单 ,我 们 直接 给 出 程序 : 


5I=0:6199g = 0:699 = 90:G89g = 6 
8 676 = 6:668 = 6:6G59 = 9 


190 RERD 6 

29 IFG= -1THEN 99 

25ImI+1l 

386 IFG= 166 THEN 6169 = 61686 + 1: G0T0 19 

49 IFG>” =99RNDG《 =99THEN 698 = 698 + 1: 6G0T0 19 
5 IFG> =89hNDG( =89THEN 6G86 = 6889+ 1: G0T0 19 
6 IFG> =79hRND'G = ?9THEN GFr = 676+ 1 60T0 19 


?ae IFG> =69RhRNDG( >=69THEN G60 = 6G66 + 1: 6G0T0 19 
89 6G59 = 6G59 + 1: GOTO 1 

98 X168@ = _ INT (6186 / II 1686 * 16) / 19 

95 X59 = INT (659 /TIT*# 169 * 18) / 16 

96 X66 = INT 〈666 /IT*k 199 * 19) / 19 

97 xX?8 = INT (G76 /TI 169 + 18) / 16 

98 xX89 = INT (686 /TI 4168 * 16) / 18 

99 X98 = INT (6G98 /TI* 1099 * 186) / 19 

198 PRINT “分 数 段 “168 98-99 88-89 76-79 698-69 8-59"” 
118 PRINT “人数 “45619895 “3G985” “3 

115 PRINT G805” “5G795” ”1G695” ”)!G59 

1286 PRINT “百分比 “1X1985 ”5X985 “5X895 “3 

125 ”PRINT X79)” “1X691” “5X59 

138 DRTR 86,85,91,93*76,84,66,79,74:78,563,62,88，189,42 
135 DRTR 7 了 4,86,82,78,95,77,84,66,78,94,85,67,53，-1 

1486 END 
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说 明 : 

电 第 135 句 末尾 的 一 1 不 是 学 生成 绩 , 而 是 人 为 安排 的 数 
据 结束 的 标志 , 它 用 于 第 20 句 判断 读 入 数据 是 否 完结 。 数 据 读 
入 结束 标志 可 以 是 任何 一 个 不 同 于 DATA 提供 的 其 它 数据 。 

@ 为 使 打印 的 表格 美观 整齐 ,在 安排 打印 表格 时 ,有 关 行 列 
应 对 整齐 ,以 免 输出 时 数据 错位 。 

@@ 为 使 变量 名 和 分 数 段 相对 应 ,本 例 中 用 了 Go,Xio 等 作 
变量 名 。 构 成 变量 名 的 字符 超过 了 两 个 ,但 由 于 所 有 变量 名 的 第 
二 个 字符 均 不 相同 ,所 以 不 会 发 生 混乱 。 


4.7 程序 的 打印 .存盘 和 存 带 


程序 输入 机 内 ,经 过 调试 ,修改 和 运行 ,证 明 程序 已 经 正确 
无 误 后 ,我 们 可 以 将 程序 打印 在 宽 行 纸 上 ,或 者 保存 在 磁盘 或 磁 
带 上 。 


4.7.1 程序 及 运行 结果 的 打印 


CEC- 工 机 上 打印 运行 结果 及 其 程序 清单 可 分 西 文 和 中 文 
两 种 方式 。 
1. 西 文 方式 下 打印 程序 清单 及 其 运行 
在 西 文 方式 下 要 打印 程序 清单 或 运行 
打印 机 ,命令 格式 为 : 
格式 : PR#1 
作用 : 在 西 文 方式 下 连接 打印 机 。 
例 4. 13 在 西 文 方式 下 连通 打印 机 。 
]PR#1x- 
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结果 
结果 ,首先 应 该 连通 


]LISTw (这 时 将 把 内 存 中 的 程序 在 宽 行 纸 上 打印 出 来 ) 
如 果 不 再 打印 ,可 以 断 开 打印 机 。 
格式 : PR#0 
作用 : 在 西 文 方式 下 断 开 打印 机 。 
例 4.14 断 开 打印 机 。 
]PR##0uc/ 
]LIST (程序 仅 在 屏幕 上 显示 ) 
注意 :在 打印 程序 之 前 必须 打开 打印 机 的 电源 。 这 里 所 说 的 
“连通 ” 利 “ 断 开 ” 不 是 指 连通 或 断 开 打印 机 的 电源 ,而 是 指 建立 
或 切断 BASIC 系统 同 打印 机 之 间 的 联系 。 打 印 程序 的 运行 结果 
与 上 述 操作 相同 。 
2. 中 文 方式 下 打印 程序 清单 及 其 运行 结果 
格式 : POKE 1659, (ny 
作用 :在 中 文 方式 下 连通 打印 机 。 其 中 nm 是 打印 的 汉字 字 
体 。0 入 n 委 15。 
若 n=0, 则 表示 断 开 打印 机 。 若 1 委 n 委 15, 则 表示 打印 时 
所 用 的 字体 (各 号 字体 请 参见 第 二 册 第 三 章 )。 
例 4.15 用 1 号 字体 来 打印 程序 。 
]POKE 1659 ,1w/ 
JLIST 巡 . ( 按 汉字 方式 打印 出 程序 清单 ) 
如 果 需 要 在 不 同 的 地 方 打印 出 不 同 字 体 的 汉字 ,那么 可 以 
象 BASIC 语句 一 样 将 POKE 1659,n 插 到 相应 的 位 置 上 。 
例 4.16 变换 打印 汉字 的 字体 。 
5 POKE 1659, 1 
19 PRINT“ 中 华 学 习 机 ” 
15“POKE 1659,2 
286 _ PRINT“ 中 华 学 习 机 ” 
25  POKE 1659,3 
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38 PRINT“ 中 华 学 习 机 ” 
49 “END 


]RUN 
中 华 学 习 机 
c 4 二 可 刷 L 
= 上 > -fc 2 一-T 二 FL 
3. 设置 打印 行距 
所 谓 打印 行距 就 是 打印 的 运行 结果 或 程序 清单 上 下 行 之 间 
的 距离 。 
格式 :POKE 1915,(n》 
作用 :设置 上 下 行 之 间 的 距离 。n 的 值 为 行 间 距 。0 委 n 委 
255。 
通常 mn 值 可 取 为 8, 上 下 两 行 间距 就 比较 适中 .如 果 n 值 太 
小 ,如 n 王 1], 则 两 行 之 间距 离 太 小 ,反而 不 太 好 看 。 当然, 对 打印 
的 表格 来 说 ,上 下 行 又 希望 不 要 隅 得 太 远 。 
4. 设置 每 行 打印 的 字符 个 数 。 
格式 :POKE 2043,(n 》 
作用 :设置 每 行 能 够 打印 的 最 多 字符 个 数 。0 入 n 委 255。 
一 旦 设置 了 每 行 允 许 的 最 多 字符 个 数 , 当 一 个 语句 行 所 容 
纳 的 字符 个 数 超出 这 个 最 大 数 时 ,系统 就 自动 换行 .如 果 没 有 明 
确 设 定 字 符 数 ,那么 系统 约定 每 行 打印 至 多 40 个 字符 。 这 里 的 
字符 数量 以 西 文字 符 计算 的 .如 果 打 印 的 是 汉字 ,那么 一 个 汉字 
可 两 个 字符 位 置 。 
5. 设置 字 间 距 
所 谓 字 间距 就 是 指 前 后 两 个 字符 之 间 的 距离 。 
格式 :POKE 1787 ,ny》 
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作用 :设置 字 间 距 。0 入 n 委 255。 

如 果 没 有 明确 给 出 字 间 距 ,系统 约定 为 1, 这 可 以 满足 通常 
应 用 的 要 求 。 

对 于 POKE 命令 ,一旦 被 设置 就 一 直 作 用 下 去 ,直到 关机 或 
重新 设立 为 止 。 如 果 我 们 经 常用 到 此 命令 ,那么 可 以 将 所 有 
POKE 命令 写成 一 个 BASIC 程序 保存 在 磁盘 上 , 当 需 用 时 再 调 
入 运行 之 。 


4.7.2 程序 的 存盘 和 调用 


程序 除了 可 以 在 宽 行 纸 上 打印 出 来 以 外 ,还 可 以 保存 在 磁 
盘 上 。 一 般 说 来 ,有 用 的 程序 最 好 都 保存 在 磁盘 上 ,以 便 再 用 或 
修改 。 但 使 用 中 注意 :固化 BASIC 下 存盘 和 调用 命令 无 效 。 因 而 
凡是 要 用 存盘 和 调用 命令 ,都 必须 事先 用 DOS 3. 3, 来 启动 系 
统 。 

1. 存盘 命令 

格式 : SAVE (文件 名 》 

作用 : 将 内 存 中 的 源 程序 用 给 定 的 名 字 保 存 到 磁盘 上 。 

文件 名 就 是 给 整个 源 程 序 取 的 和 名字, 它 可 以 是 汉字 ,也 可 以 
是 字母 开头 的 字母 或 数字 的 序列 ,其 中 可 以 戏 入 下 划 线 。 

例 4.17 将 内 存 中 的 程序 保存 在 磁盘 上 。 

10 INPUT “输入 数据 :”;A,B,C 

20 EF=(AxA 十 BxB)/C 

30 PRINT“F 一 ”;F 

40 END 

SAVE E4-17w/ 

] 

这 就 将 程序 用 E4-17 文件 名 保存 在 磁盘 上 了 。 
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2. 调用 命令 

格式 :LOAD (文件 名 ， 

作用 :将 已 存 入 磁盘 的 源 程序 文件 调 入 内 存 。 
文件 调 入 内 存 后 ,可 以 对 文件 进行 修改 .列表 或 运行 。 
例 4. 18 将 先前 存 入 的 E4-17 程序 调 入 内 存 。 
NEW x 巡 (清除 内 存 ) 

LOAD E4-17 (将 E4-17 文件 调 入 内 存 ) 

LIST xl/ 

10 INPUT“ 输 入 数据 :”;A,B,C 

20 F 王 (AxA 十 BxB)V/C 

30 PRINT 中 一 “5F 

40 END 

RUNw 

输入 数据 :3,4,5x/ 

F 一 5 


由 上 可 以 看 出 :有 了 存盘 和 调用 命令 ,输入 .运行 或 修改 程 
序 就 相当 方便 了 。 
需要 强调 指出 的 是 :SAVE 和 LOAD 命令 只 有 在 DOS 3. 3 
(或 DOS 3.4) 启 动 下 才 有 效 。 即 是 说 ,直接 开机 使 用 固化 BASIC 
时 SAVE 和 LOAD 命令 不 起 作用 。 这 是 使 用 中 需要 注意 的 。 
果 用 户 的 程序 准备 存盘 ,那么 事先 请 一 定 用 DOS 来 启动 系统 。 


4.7.3 程序 的 存 带 和 调用 


在 中 华 学 习 CEC- I 中 ,不 仅 可 以 使 用 打印 机 和 磁盘 驱动 


器 ,还 可 以 使 用 录音 机 的 磁带 来 保存 程序 。 

1.， 存 带 命令 

格式 : SAVE [文件 名 >? 

作用 :将 内 存 的 程序 保存 到 录音 机 的 磁带 上 。 
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这 里 的 文件 名 必须 用 引号 括 起 来 。 具 体操 作 方法 是 ; 

融入 SAVE 和 文件 名 字 以 后 ,同时 按 下 磁带 机 上 的 “PLAY?” 
键 和 “REC” 键 ,然后 再 敲 计算 机 键盘 上 的 回 车 键 & 。 待 程序 装 入 
磁带 后 ,计算 机 主机 发 出 两 次 “ 哪 哪 ” 声 , 并 在 屏幕 上 显示 出 BA- 
SIC 系统 的 状态 提示 符号 ”]”, 这 时 按 下 磁带 机 的 “STOP” 键 。 这 
样 就 把 内 存 中 的 BASIC 程序 保存 到 磁带 上 了 。 

如 果 使 用 该 命令 时 不 给 出 文件 名 ,同样 也 可 以 把 程序 用 文 
件 的 形式 保存 到 磁带 上 。 但 以 后 用 LOAD 命令 来 调用 程序 文件 
时 ,系统 就 只 能 按 文件 在 磁带 上 的 位 置 来 装 入 程序 。 

2. 调用 磁带 文件 命令 

格式 :LOAD.[( “文件 名 7] 

作用 :将 磁带 上 的 程序 文件 调 入 内 存 。 

把 录音 机 上 磁带 内 的 文件 调 入 内 存 的 操作 方法 是 ; 

在 键盘 上 痪 入 LOAD 和 文件 名 字 以 后 , 按 下 磁带 机 的 
“PLAY” 键 ,再 殴 键 盘 上 的 回 车 键 w。 文 件 调 入 计算 机 内 存 后 机 
器 发 出 两 次 “ 嘟 哪 " 声 ,并 在 屏幕 上 显示 刚才 调 入 的 文件 名 字 和 
BASIC 提示 符 “]”。 如 果 装 入 的 文件 不 是 给 定 的 文件 名 时 ,屏幕 
显示 已 装 入 的 文件 名 并 给 出 一 个 反 相 显示 的 字 每 “N”, 且 继续 
调 入 后 继 文件 ,直到 装 入 给 定 的 文件 为 止 。 如 果 LOAD 命令 中 
省 略 了 文件 名 ,那么 表示 装 入 磁带 上 第 一 个 文件 。 

磁盘 和 磁带 上 都 可 以 保存 文件 且 所 用 命令 均 相 同 。 两 者 的 
区 别 在 于 :存盘 及 其 调用 都 比较 简单 和 快速 ; 存 带 及 其 调用 较 
慢 。 另 外 , 存 带 和 调用 文件 名 一 定 要 用 引号 括 起 来 ,而 磁盘 中 的 
文件 名 绝 不 能 用 引号 括 起 来 。 
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问题 与 思考 


1 ON n GOTO 行 号 1, 行 号 2,……, 行 号 m 形式 的 语句 不 是 
必需 的 ,为 什么 ? 

2. 为 什么 DATA 语句 可 以 放 在 程序 的 任何 位 置 ? 

3 举 一 个 RESTORE 语句 放 在 READ 语句 之 后 而 又 能 边 
到 恢复 目的 的 例子 。 


习题 四 


.指出 下 列 程序 运行 的 结果 ,并 指出 数据 指针 处 在 什么 位 


到 
@ 10 
20 
30 
40 
50 
60 
70 
80 


@ 10 
20 
30 
40 
50 
60 
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READ A,B,C 
A 一 A 十 B 十 C 

B 一 A 十 B 十 C 

C 一 A 十 B 十 C 

IF C>A 十 B 十 CTHEN 20 

PRINT /惟一 沪 A, 虽 一 当 B,vC 一 必 C 
DATA 1,2,3 

END 

RUNw/ 

READ A,B,C,D,E,F 

DATA 1,2,3 

A 一 A 十 E 十 F 

DATA 4,5,6 

G 一 G 十 B 十 C+D 

DATA 7,8,9,10,11,12,13 


70 “RESTORE 
80 IF G<30THEN 10 
90 “ PRINT A,B,C,D,E,F,G 


100 “END 
RUNA/ 
2. 先 画 框图 再 编写 程序 。 
Vs ， 4 
We sinwt 有 C<0 
5 V at > 4L 
ji 一 Tte 了 及 CC 一 0 
kiesi 十 kzesx R: 一 心 >。 
1 Rs: 一 R 
其 中 ! 双 一 人才 一 各， 5 
人 
R2 1 
有 下 
亲 二 有 Rs 
201 4L2 ELC 
党 
和、 R2 1 


2L” AV4L2 LC 
假定 R,L,C,V 为 已 知 常数 , 求 t 王 0,0.1,0.2,…10 时 ii 的 
值 各 是 多 少 。 
3. 用 ON 多 路 分 支 编写 程序 。 
VE 十 1 0<t<1 


2 一 去 
FCD 二 t2 一 1 1<t<<2 

t2 一 2t 2 扩 { 一 3 

t 一 4t 3 过 t<<4 


4. 根据 下 列 程序 画 出 框图 。 
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5  W=100 

10 READ X 

15 IF X=999 THEN 70 

20  W1I=W 

25 YY=0 

30  W1I=W1x*(1 十 X) 

35 YY=Y 十 1 

40 IFW1I>2x*WTHEN 50 

45 ”GOTO 30 

50 ”PRINT 叹 一 汪 XY 一 ”5Y 

55 ”GOTO 10 

60 ”DATA 0. 05,0. 07,0. 09,0. 11,0. 13,999 

70 “END 

5. 将 a,byc 三 个 数 按 从 小 到 大 顺序 排列 。 先 画 出 框图 ,再 
写 出 程序 。 

6. 已 知 数列 :1, 坟 ,村 ,开本 ， 本 问 小 于 10” 的 是 第 几 
项 ? 写 出 程序 。 
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第 五 章 ” 循环 程序 设计 


在 现实 生活 中 ,循环 的 的 例子 实在 是 太 多 了 .如 象 我 们 生活 
的 昨天 、 今 天 和 明天 ,一 天 复 一 天 , 真 可 谓 “ 明 日 复明 日 ,明日 何 
其 多 ”。 昨 天 、 今 天 和 明天 ,似乎 天 天 都 在 重复 ,而 天 天 都 不 完全 
一 样 。 去 年 ,今年 ,明年 ,年 复 一 年 ,永远 如 此 。 


5.1 什么 叫 循环 


在 BASIC 语言 中 ,也 有 专门 用 于 描述 “明日 复明 日 ?的 语 
句 ,这 就 是 BASIC 的 循环 语句 。 在 程序 设计 中 ,经 常 需要 反复 执 
行 一 段 程序 ,而 在 循环 的 执行 过 程 中 ,程序 的 执行 情况 也 在 悄悄 
地 发 生变 化 。 就 象 日 复 一 日 ,年 复 一 年 ,表面 上 看 起 来 没有 什么 
变化 ,但 从 人 的 年 龄 .知识 ,对 财物 的 消耗 来 说 都 在 发 生变 化 一 
样 。 很 难 想象 ,生活 中 如 果 没 有 循环 ,世界 将 会 变 成 什么 样子 。 同 
样 ,如 果 BASIC 语言 (其 它 语 言 也 如 此 ) 不 允许 或 不 能 解决 循环 
问题 ,那么 很 多 问题 就 只 能 是 “可 想 而 知 ”" 了 。 例 如 , 求 1 十 2 十 3 
十 … 十 100000 的 值 , 我 们 可 以 借 肋 99999 个 加 号 “十 ?将 这 些 数 
字 加 起 来 ,但 实际 上 是 行 不 通 的 。 

事实 上 ,BASIC 语言 有 两 种 方法 可 以 用 来 解决 循环 问题 。 一 
是 条 件 语句 结合 转向 语句 (这 在 前 面 已 经 介绍 了 ); 二 是 用 BA- 
SIC 提供 的 FOR-NEXT 循环 语句 。 
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5.2 循环 语句 


5.2.1 循环 语句 的 格式 和 作用 


格式 :FOR 〈 实 型 算术 变量 = (算术 表达 式 1) TO 〈 算 术 表 
达 式 2》[STEP (算术 表达 式 3)]〈 语 名 序列》 

NEXT 〈 实 型 算术 变量 》 

作用 :反复 执行 FOR 和 NEXT 之 间 的 语句 序列 ,直到 实 型 
算术 变量 的 值 超过 算术 表达 式 2 的 值 为 止 ,然后 再 顺序 执行 
NEXT 的 后 继 语句 。 

其 中 :FOR 一 一 循环 的 开始 标志 。 

〈 实 型 算术 变量 一 一 一 个 取 实 数值 的 变量 名 ,又 称 循环 控 
制 变量 。 循 环 控 制 变量 的 值 可 以 决定 循环 是 否 继续 进行 。 

《算术 表达 式 1) 一 一 又 称 为 循环 控制 变量 的 初 值 , 即 第 一 
次 循环 时 的 取 值 。 它 本 以 是 一 个 数值 常数 ,也 可 以 是 一 个 带 有 各 
种 算术 运算 符 的 复杂 算术 表达 式 。 循 环 执行 时 ,机 器 首先 将 初 值 
计算 出 来 ,再 赋 给 循环 控制 变量 ,作为 第 一 次 循环 的 开始 值 。 

《算术 表达 式 2 一 一 用 于 控制 循环 的 终止 ,又 称 循 环 终 
限 。 如 果 循 环 控制 变量 的 值 超 过 了 这 个 终 限 值 , 那 么 就 停止 循环 
而 顺序 执行 NEXT 的 后 继 语 句 。 如 果 循 环 控 制 变量 的 值 没 有 超 
过 终 限 值 , 则 继续 执行 FOR 和 NEXT 之 间 ( 即 循环 体 ) 的 语句 序 
列 。 终 限 可 以 是 一 个 具体 的 数值 常数 ,也 可 以 是 一 个 算术 表达 
式 , 但 循环 控制 变量 和 终 限 进行 超过 比较 时 ,总 是 按 代数 值 来 比 
较 。 

To 一 一 终 限 的 标志 , 即 说 明 TO 之 后 紧 跟 的 是 循环 语句 的 
终 限 。 
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(算术 表达 式 3) 一 一 称 为 循环 控制 变量 的 步 长 或 增 量 , 即 
表示 每 次 循环 后 循环 控制 变量 又 要 增加 多 少 值 后 才 又 进行 下 一 
次 循环 。 步 长 同样 可 以 是 一 个 具体 的 数值 ,也 可 以 是 一 个 算术 表 
达 式 。 步 长 可 以 是 正 数 ,也 可 以 是 负数 。STEP 是 步 长 的 标志 。 
CSTEP 〈 算 术 表 达 式 37] 是 一 个 待 选 项 ,根据 需要 进行 取舍 。 如 
果 步 长 为 1, 则 待 选项 可 以 不 写 ,暗示 循环 控制 变量 每 次 递增 1。 

(语句 序列 一 一 又 称 循环 体 , 即 需要 反复 执行 的 部 分 。 它 
由 一 个 或 多 个 语句 组 成 。 当 然 ,循环 体 中 可 以 包含 赋值 语句 、 条 
件 语句 、 转 向 语句 、 输 入 语句 .打印 语句 ,甚至 还 可 以 是 循环 语 
句 。 

(NEXT) 一 一 循环 范围 的 结束 标志 。FOR 和 NEXT 构成 了 
需要 循环 执行 的 部 分 。FOR 之 前 和 NEXT 之 后 均 不 属 该 循环 的 
范围 。 通 常 ,系统 要 求 在 NEXT 之 后 的 同行 上 紧 跟 一 个 循环 控 
制 变量 名 ,以 标志 NEXT 是 哪 一 个 循环 语句 的 结束 标志 。 

我 们 还 是 来 看 看 下 面 的 例子 吧 。 

例 5.1 求 100 以 内 所 有 奇数 的 和 。 


18S3= 9 

29 FORI=17T0199 STEP 2 
30S=3S+1I 

486 NEXT II 

58 PRINT “S=”iS 

69 END 


]RUN 
S=25886 


在 这 个 具体 例子 中 ,第 20 句 中 的 FOR 是 循环 的 开始 标志 ， 
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I 是 循环 控制 变量 ,1 是 工 的 初 值 ,100 是 工 的 终 限 ,2 是 步 长 。 第 
30 句 的 S=S 十 I 是 循环 体 , 这 里 循环 体 仅 有 一 个 赋值 语句 。 
NEXT 表示 循环 范围 到 此 为 止 。 从 20 一 40 句 一 起 构成 BASIC 
中 的 一 个 循环 语句 。 

这 个 循环 语句 的 执行 情况 是 : 

由 将 初 值 1 送 到 循环 控制 变量 I 中 。 

@@ 执 行 循环 体 S=S 十 LI, 即 S 一 S 十 1。 

图 将 循环 控制 变量 增加 一 个 步 长 (2), 即 I 王 I 十 2, 将 工 值 同 
终 限 值 100 比较 , 若 I 超 过 (这 里 暂时 理解 为 大 于 ) 终 限 值 , 就 卡 
出 循环 后 转 四 。 否 则 ,再 转 到 凶 继 续 执行 循环 体 。 

曲 执 行 NEXT 工 的 后 继 语 句 , 即 PRINT“S 一 ”;S。 

显然 ,上 例 完成 了 1 十 3 十 5 十 7 十 … 十 99 的 累加 计算 ,结果 
存放 在 S 中 。 

例 5.2 设 A=3,B 一 5,X 一 0.5, 步 长 为 1.5, 直 到 10 时 ， 
求 
AX2 十 BCOSX 


Y 一 AX 下 EXSSINX 的 什 * 


10hR=3:B=5:I= 9 

26 FOR X = 86.5 TO0 16 STEP 1.5 

25I=Ir+1l 

38@6 划 = 和 扫 水 其 水 

49Y= (WU+rByr COS (X))/ (ut+ByX~3 交 SIN(X)) 
58 PRINT "ITI="T5 ”2X= XI YY 

6 NEXT X 

76 PRINT “程序 结束 " 

89 “END 


]RUN 
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I=1 X=.5，Y=4.89492467 
I=2  X=2 YY=.205862576 
I=3 X=3.5 Y=-.834629171 
TI=d4 X=5  Y=-.145745333 
I=5 X=6.5 Y=.311825431 
I=6 X=8 YY=.07019866961 
I=7 了 7 X=9.5 Y=-5. 16915494 


在 程序 中 ,变量 I 不 但 用 于 统计 X,\Y 的 组 数 ,也 可 以 用 来 
记录 循环 的 次 数 。 

仔细 观察 输出 的 数据 ,读者 就 会 发 现 ,X 取 值 9. 5 以 后 , 程 
序 就 停止 循环 了 ,为 什么 没有 取 到 终 限 值 10 呢 ? 因为 9. 5 十 1.5 
一 11, 这 个 值 已 经 超过 了 终 限 值 10, 因 而 跳出 循环 。 由 此 可 以 得 
出 一 般 结论 :循环 语句 中 循环 控制 变量 的 值 不 一 定 刚 好 取 到 终 
限 值 。 我 们 为 什么 称 为 终 限 而 不 称 为 终 值 就 是 这 个 原因 。 


5. 2.2 循环 语句 的 执行 流程 


在 不 同型 号 机 器 上 的 循环 语句 ,其 循环 效果 是 相同 的 。 但 循 
环 语句 在 具体 实现 时 ,执行 流程 可 能 不 相同 。 对 循环 的 处 理 来 
说 ,有 的 机 器 是 循环 控制 变量 得 到 初 值 后 就 马上 与 终 限 值 进行 
比较 ,如 果 初 值 一 开始 就 超过 终 限 , 那 么 导致 循环 一 次 都 不 执 
行 。 而 有 的 机 器 又 是 循环 控制 变量 得 到 初 值 后 立即 执行 一 次 循 
环 , 然 后 将 步 长 累加 到 循环 控制 变量 中 后 再 与 终 限 值 进 行 比较 ， 
以 确定 是 否 进 行 下 一 次 循环 。 这 种 处 理 方 法 导致 循环 至 少 要 执 
行 一 次 ,而 不 管 初 值 和 终 限 值 如 何 。 前 一 种 方法 我 们 称 为 是 先 比 
较 后 确定 循环 ,后 一 种 方法 称 为 先 循环 后 比较 。 处 理 方法 不 同 ， 
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得 到 的 循环 的 次 数 和 结果 就 不 一 样 。 中 华 学 习 机 CEC- I 采用 的 
是 先 执行 后 比较 的 循环 处 理 方法 ,因而 ,不 管 循环 控制 变量 的 初 
慎 和 终 限 如 何 , 总 是 要 执行 一 次 循环 的 ,是 否 跳 出 循环 ,只 有 第 
二 次 循环 开始 时 才能 确定 。 


初 值 一 循环 控制 变量 


循环 控制 变量 + 步 长 之 循环 控制 变量 
循环 控制 变量 超过 终 限 否 ? 


是 


图 5.1 循环 语句 处 理 示意 图 
处 理 循环 语句 的 执行 流程 如 图 5. 1 所 示 。 
“循环 控制 变量 超过 终 限 否 ” 中 所 谓 “ 超 过 ”的 含义 取决 于 步 长 的 
取 值 符号 。 
如 果 步 长 是 正 值 ( 即 增 量 ) ,那么 “超过 ”的 意思 就 是 循环 搁 
制 变量 的 值 大 于 终 限 值 ; 如 果 步 长 是 负 值 ( 即 减 量 ) ,那么 < 超过 
的 意思 就 是 循环 控制 变量 的 值 小 于 终 限 值 。 


5. 2.3 使 用 循环 语句 时 注意 


1. 循环 控制 变量 只 能 是 实 型 变量 ,不 能 是 整 型 变量 或 字 
符 型 变量 ,更 不 能 是 带 有 运算 符 的 表达 式 。 
例 5.3 求 1 十 2 十 3 十 … 十 100 的 值 。 
10S -8 
28 FoR Ix = 1 T0 196 
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38 S = S + TI%, 
486 NEXT I% 
59 PRINT $》 
69 END 


]RUN 


?Synta)k error in 26 

第 20 句 发 生 语 法 错 。 原 因 就 在 于 循环 控制 变量 1% 是 整 型 
变量 。 

2. 如 果 循 环 控制 变量 的 初 值 一 开始 就 超过 终 限 值 ,那么 
循环 也 要 执行 一 次 (注意 “超过 ?是 什么 意思 )。 

例 5.4 我 们 用 工 来 表示 循环 控制 变量 ,用 K 来 记录 循环 
的 次 数 , 肯 | S 来 代表 累加 和 。 

10S=:9:kK = 9 

2 FOR I = 1986 TO 56 STEP 2 

39K -=-K+ 1 

463S==S+ 工 

56 NEXT I 

698 PRINT “K=ihki3” 1“S=” SI “2 T= ”5 工 

7 了 8 END 


]RUN 
K=1 S=160 I=162 


从 运行 结果 看 ,只 1 和 外 环 了 一 次 ,因而 人 一 1。 累加 和 S 一 100， 
说 明 只 把 工 的 初 值 100 加 到 S 中 去 了 。I 王 102 说 明 把 步 长 2 累 
加 到 工 中 去 了 ,因为 初 值 为 100, 再 了 票 加 上 步 长 2, 所 以 I=102 
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3. 


循环 控制 变量 的 值 可 以 参与 循环 体 中 的 运算 ,也 可 以 


只 用 于 控制 循环 次 数 。 但 是 切记 :循环 体 中 不 能 修改 循环 控制 变 


量 的 值 。 
以 控制 。 


如 果 修改 了 ,就 把 正常 的 循环 秩序 打 乱 了 ,使 得 我 们 难 


例 5. 5 ”循环 控制 变量 只 用 于 控制 循环 次 性。 


196 岂 = 6 

26 INPUT h 

386 FOR I = 1 T0 109 

498U= 迪 + 

58 NEXT I 

68 PRINT “ 册 =… 利 ”PR= ”5PR5 ”7T= ”了 
?79 END 


]RUN 
?4.72 
=472.0066062 Rh=4.72 I=161 


这 里 的 工 就 只 用 于 控制 循环 次 数 。 如 果 在 循环 结束 以 后 需 
要 用 到 循环 控制 变量 工 的 值 ,那么 I 的 值 就 是 最 后 那 次 循环 的 
值 (100) 再 加 上 步 长 (1) ,因而 输出 的 1I=101。 这 是 因为 中 华 学 
习 机 采用 先 执行 后 比较 的 缘故 。 


4. 


初 值 . 终 限 、 步 长 均 可 以 是 复杂 的 { 算 术 表 达 式 。 


例 5.6 初 值 . 终 限 . 步 长 是 算术 表达 5 式 的 情况 。 


10R=5 划 = 6:K = 人 

2 FOR I = SQR 〈f) T0 EXP' (,.R / 3) STEP R + 有 
30K=Kr+1 

46@ 册 = 册 + 

58 NEXT I 
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68 PRINT “K= ”水 天 ”2 风 =”; 迪 
7 了 78 END 


]RUN 

K=1 JU=2 .236606798 

程序 中 K 用 于 记录 循环 的 次 数 ,这 里 循环 只 执行 了 一 次 。 
因而 人 一 1。 

5. 步 长 可 以 是 负 值 。 

例 5.7 步 长 为 负 值 的 情况 。 


1]18S=6 

29 FOR I= 198 TO013STEP -1 
3989S=S+1I 

496 NEXT I 

598 PRINT “S=…iS 

66 END 


]RUN 
S=5059 


如 果 步 长 为 负 值 ( 如 本 例 中 的 一 1) ,那么 I 是 否 超过 终 限 1 
就 用 I< 1 来 判断 就 行 了 。 这 个 例子 是 把 100,99,98，…，,2,1 累 
加 起 来 。 前 面 的 求 和 是 从 小 累加 到 大 ,这 里 是 从 大 累加 到 小 , 实 
现 方式 不 同 ,但 效果 完全 一 样 。 

6. 循环 的 次 数 可 以 用 如 下 的 公式 来 计算 ， 

循环 次 数 =INT(ABS( 终 限 一 初 值 )/ 步 长 ) 十 1。 

如 果 循 环 控 制 得 不 好 ,有 可 能 丢掉 一 次 应 该 执行 的 循环 。 

例 5.8 下 面 的 程序 就 少 执行 一 次 循环 。 
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10Kkz=9 

286 FOR I= 6.5T05STEP 6.3 
39KkK=kr+ 1 

48 PRINT “I=”5 工 

58 NEXT I 


69 PRINT “循环 次 数 =” 东 
7 END 


]RUN 
I=q.P7 
循环 次 数 =15 


以 上 输出 的 是 最 后 那 次 循环 的 结果 。 由 此 可 以 看 到 ,I 一 4. 7 
时 还 应 该 再 执行 循环 一 次 .但 由 于 机 内 数据 转换 造成 的 误差 ,以 
致使 本 来 应 该 循环 的 一 次 给 丢掉 了 .当初 值 . 步 长 为 带 小 数 时 容 
易 发 生 这 种 情况 ,避免 丢掉 循环 的 办 法 有 二 : 

其 一 是 在 终 限 值 上 增加 步 长 的 一 半 。 如 上 例 终 限 取 为 5. 15 
就 不 会 丢失 循环 次 数 了 。 其 二 是 将 循环 参数 扩大 若干 倍 , 使 初 
值 . 终 限 、. 步 长 均 成 为 整数 。 

7. 在 循环 体内 的 转向 语句 可 以 转 到 循环 体外 ,但 循 体 外 
的 转向 语句 不 能 转向 循环 体内 。 

例 5.9 循环 语句 和 转向 语句 的 关系 。 


50 FOR I==1 TO 100 50 FOR I 王 1 TO 100 
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80 GOTO 110 80 WwW 一 W 十 LI < 


100 NEXT I 100 NEXTI 
110 PRINT… < 120 GOTO 80 一 
正确 错误 


8 在 对 话 方式 下 使 用 循环 语句 时 ,FOR 和 NEXT 必须 写 
在 同一 行 上 (以 是 否 吉 上 作为 换行 标志 ,只 要 禹 入 上 ,就 表示 换 
到 新 的 一 行 。 所 以 纸 上 书 写 的 一 行 和 机 器 内 部 的 行 是 不 完全 相 
同 的 。 这 里 所 说 的 一 行 是 指 用 必 隔 开 的 行 ) 目 字符 个 数 (包括 菩 
入 的 空格 ) 不 能 超过 239 个 。 轴 遇 

9。 FOR 和 NEXT 形式 的 循环 语句 只 能 用 于 解决 循环 交 
数 已 知 的 那 一 类 循环 。 如 果 循 环 次 数 未 知 或 根据 某 种 条 件 来 确 
定 是 否 继续 循环 ,那么 就 只 能 用 条 件 语句 和 转向 语句 配合 才能 
完成 。 

例如 ; 求 1 十 翅 十 寺 十 … 十 十 十 …, 当 工 <10* 时 停止 累 加 。 
这 个 问题 不 大 好 直接 用 FOR-NEXT 循环 语句 来 完成 ,因为 当 
寺 <102 时 需要 循环 多 少 次 是 无 法 事先 知道 的 。 这 种 情况 只 好 


用 条 件 语句 和 转向 语句 来 实现 循环 了 。 
5.3 多 重 循环 
我 们 曾经 提 及 ,循环 体 中 还 可 以 包含 循环 语句 ,这 样 就 构成 


所 谓 的 多 重 循环 。 
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5. 3.1 多 重 循环 的 结构 
多 重 循环 的 结构 如 下 : 


FOR I= 王 TD TO IzSTEP Js 


外 内 /FOR J 王 Ji TO JSTEP Js 
循 1 到 《循环 体 》 
NEXT J 


环 环 


NEXTI 


这 是 一 个 二 重 循环 , 它 在 循环 控制 变量 为 I 的 循环 中 又 套 
了 一 重 循环 变量 为 了 的 循环 。 通 常 把 FOR J 一 …NEXT J 称 为 内 
循环 ,而 把 FOR I 一 …NEXT I 称 为 外 循环 。 作 为 外 循环 的 循环 

体 , 除 了 整个 内 循环 以 外 ,还 可 以 包含 其 它 一 些 语句 。 

两 重 循环 的 执行 情况 如 一 个 大 轮子 带动 一 个 小 轮子 ,大 轮 
(相当 于 外 循环 ) 转 动 一 圈 , 小 轮 ( 相 当 于 内 循环 ) 就 要 转动 若干 
圈 。 

当然 ,还 可 以 有 三 重 . 四 重 循环 。CEC-BASIC 至 多 人 允许 嵌 套 
10 重 循环 。 事实 上 ,实际 应 用 中 很 难 有 真正 达到 10 重 循环 的 情 
况 。 

例 5. 10 两 重 循环 的 例子 。 

@A 赋 给 初 值 1 后 执行 外 循环 的 循环 体 。 即 30 一 80 句 。 

四 第 40 句 是 内 循环 的 开始 , 它 将 初 值 2 赋 给 B, 执 行内 循 
环 的 循环 体 。 
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19 ul = 9:u2 = 6 
26 FORR = 11T019 

39 W1 = ul + 

48 FOR B= 21T016STEP 2 
5eu2 =u2+Bx#ul 

55 PRINT “2=…5U2 

68 NEXT B 

7e ua =.U1 7/ U2 

88 PRINT “3= "iu3 

98 NEXT 

168 ”PRINT “程序 结束 " 

116 ”END 


]RUN 
WuW3=8.33333334E-83 


程序 结束 

为 当 执行 到 60 句 时 ,由 于 了 的 值 没 有 超过 终 限 值 50, 因 而 
继续 内 循环 ,直到 B 超过 终 限 后 跳出 内 循环 ,执行 其 后 继 第 70 
句 。 

国 当 执行 到 第 90 句 时 ,由 于 A 没有 超过 终 限 10, 因 而 重 
复 外 循环 。 至 此 ,外 循环 执行 了 一 次 ,而 内 循环 却 执行 了 5 次 。 
重复 以 上 过 程 , 直 到 循环 结束 。 

从 上 述说 明 可 知 , 外 循环 A 执行 一 次 ,内 循环 B 就 执行 5 
次 。 整 个 内 循环 共 要 执行 10X5=50 次 。 为 清楚 起 见 请 参见 图 
5. 2 所 示 。 


。127。 


5. 3. 2 ”使 用 多 重 循环 时 注意 


在 使 用 循环 语句 编写 循环 程 
序 时 ,除了 前 面 关 于 循环 语句 的 
注意 事项 以 外 ,对 于 多 重 循环 的 
情况 ,我 们 还 要 强调 以 下 几 点 。 

1. 中 华 学 习 机 CEC- I 人 允 
许 循环 语句 典 套 的 最 大 重 数 是 
10 重 。 通 常情 况 下 用 不 到 10 

2. 内 外 循环 不 能 互相 交 
又 。 一 个 循环 要 么 全 部 包含 在 另 
一 个 循环 之 中 ,要 么 全 部 在 循环 
之 外 。 请 参见 图 5. 3 所 示 

3. 多 重 循环 颈 套 可 以 共用 
一 个 出 口 NEXT, 但 必须 由 内 到 
外 逐 层 引出 循环 控制 变量 。 

参见 图 5. 3(b) 所 示 。 

4. ”凡是 与 本 层 循环 无 关 的 
计算 提 到 循环 语句 之 外 ,以 减少 
重复 计算 ,从 而 提高 程序 的 运行 
速度 。 

5. 同一 层 循环 放 在 同一 列 
上 。 这 样 书写 程序 ,层次 关系 清 
楚 。 


Wi+A 之 Wi， 


A+ 1 


结束 


-> 和 A 
是 


图 5.2 例 5.10 框 图 


一 FOR J 一 …. 


一 FOR J 一 …. 
一 FOR I 一 … 一 FOR I 一 … 
一 NEXT I 一 NEXT I 
一 NEXT J 一 FOR KK 一 …. 
一 NEXT K 
一 NEXT J 
Ca) 正确 的 循环 嵌 套 
一 FOR J 一 … 一 FOR J 一 ... 
FOR I 一 …. 一 一 FOR I 一 … 
一 NEXT I,J 上 NEXT IJ 
Sb) 正确 的 公共 出 口 | : 
一 一 NEXTI 
《ce) 错误 的 循环 嵌 套 


图 5. 3 多重 循环 其 套 结 构 
5.4 循环 程序 实例 


例 5. 11 假设 aly32》""，320 为 已 知 值 , 求 多 项 式 


PCX) 一 ol 十 oaz2: 十 aaz3 十 十 azoz20 的 值 
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5 PX = 9 

19 INPUT X 

15 由 = 1 

20 FOR I= 11T028 

36 RERAD A 

35 划一 划 冰 共 

496 PX = PX + 良 水 加 

59 NEXT 工 

68 PRINT “P(“ XI )=”3PX 

786 DRTR 1.32,4.56,7 了 .88,5.67,3.77,6,2.8,3.11 
75 “DRTAR 了 ,2,3,3.33,5,6,1.66,，3.45,2.44,7"5.5,5.678 
89 END 


]RUN 
?91.5 
P(1.5)=50968.4138 


随 着 程序 的 执行 ,第 35 名 就 能 形成 XXX?、X 、…\X”。 

例 5. 12 设 有 al,az,…，,az 共 20 个 数 , 找 出 其 中 的 最 大 数 
和 最 小 数 。 

设 G 代表 最 大 数 ,L 代表 最 小 数 。 

解决 问题 的 思路 是 :将 第 一 个 数 分 别 送 到 G 和 工 中。 再 读 
入 下 一 个 数 , 如 果 这 个 数 比 G 大 ,那么 说 明 该 数 有 可 能 成 为 最 
大 数 , 因 此 ,将 该 数 送 到 G 中 。 如 果 这 个 数 小 于 G ,那么 再 把 该 
数 同 最 小 数 工 比较。 如果 该 数 比 工 还 小 , 那 说 明 该 数 有 可 能 是 
最 小 数 。 否 则 ,说 明 该 数 既 不 是 最 大 数 也 不 可 能 是 最 小 数 ,因而 
被 淘汰 。 再 读 入 下 一 个 数 ,重复 以 上 过 程 , 最 终 一 定 能 够 找 出 最 
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大 数 和 最 小 数 。 框 图 如 图 5. 4 所 示 。 


图 5.4 例 5.12 框图 


16 READ 请 

20G=h:L = 晴 

38 FOR I = 170 19 

49 RERD 性 

586 IFhR>GTHEN 6G = h: GO0TO 79 

68 IFR《LTHENL = 上 用 

79 NEXT I 

898 PRINT “最 大 数 ="561”“ 思 最 小 数 =-… 久 L 
98 DRTR 12,34,23,56,45,78，123,567, 34,88 
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95 DARTR 77,78,56,99,46,76,32， 19,56,99 
198 “END 


]RUN 
最 大 数 =567 “最 小 数 =16 


例 5. 13 求 一 个 三 位 的 整数 ,其 个 位 数字 与 十 位 数字 之 和 
能 够 被 2 整除 ;个 位 数字 与 百 位 数字 之 和 能 够 被 3 整除 ;十 位 数 
字 与 百 位 数字 之 和 能 够 被 4 整除 。 
我 们 用 ABC 分 别 代 表 所 求 整 数 的 个 位 .十 位 和 百 位 数 
字 。 而 A.B、C 分 别 可 以 取 1 一 9 中 的 某 一 个 数字 ,如 果 这 些 数 字 
能 够 满足 所 给 条 件 ,那么 这 时 的 A.B、C 就 是 所 求 三 位 整数 的 个 
位 .十 位 和 百 位 。 这 个 程序 可 用 三 重 循环 来 实现 。 
19 FORR= 11T09 
286 FORB= 11T09 
38 FORC=17T09 
qe IFR+YB- INT(CR+8B)/2)*2pNDR+C= INT《(R+ 
c)7/3)*3RNDB+Cc=n INT((B+Cc /9q4)*4THEN 69 
58 NEXT. C,B,h 
55 PRINT“ 不 存在 满足 条 件 的 数 ": 60T0 75 
69gouU=c*+l1oget+B* 19+ 
78@ _ PRINT “这 个 三 位 数 是 … 届 
89 PRINT “程序 结 束 " 
98 END 


]RUN 
这 个 三 位 数 是 :531 
程序 结束 


在 该 例 中 ,如 果 给 定 的 条 件 满足 ,就 直接 跳出 循环 而 打印 该 
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数据 。 这 种 不 通过 NEXT 出 口 而 中 途 跳 出 循环 的 情况 称 为 循环 
的 非 正常 出 口 。 通 过 逐 层 循环 的 NEXT 而 依次 退出 循环 的 情况 
称 为 循环 的 正常 出 口 在 该 例 中 如 果 是 正常 出 口 , 则 表示 不 存在 
满足 条 件 的 数 ,因而 第 55 句 给 出 了 找 不 到 这 种 数 的 标志 。 


问题 与 思 


1. 用 循环 诸 句 能 够 解决 的 问题 用 条 件 语句 和 转向 语句 也 一 
定 能 够 解决 ,反之 亦 然 , 这 种 说 法 正确 吗 ? 为 什么 ? 

2. 为 什么 转向 语句 不 能 转 入 循环 体 ? 如 果 强 行 转 入 会 发 生 
什么 情况 ? 

3. 转 向 语句 经 过 FOR 入 口 转 入 循环 体 行 吗 ? 为 什么 ? 

4. 循环 语句 的 终 限 值 肯定 比 初 值 大 吗 ? 

5. 循环 控制 变量 的 最 后 值 一 定 是 终 限 值 吗 ? 举例 说 明 。 

6. 为 什么 最 好 把 与 本 层 循 环 无 关 的 量 提 到 循环 之 外 ? 


习题 五 


1. 指出 下 列 程序 的 运行 结果 。 
@ 10FOR A=1TO5STEP 2 

15 PRINT“A 一 ";Aie 

20 FOR B 王 A TO 5 STEP 2 

25 PRINT“B 一 ”;Bi“ ”; 

30 FOR C=-B TO 5 STEP 2 

35 PRINT“C 一 ”3C; 

40 NEXT C 

50 NEXT B 

60 NEXT 和 A 
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70 END 
RUN 
@ 10 FOR X=1TO3 
20 FOR Y 王 1TO3 
30 FOR Z=1 TO 3 
40 IF X+Y 十 Z>5 THEN 95 
50 IF X 十 Y 十 Z 王 5 THEN 85 
60 IF X 十 Y 十 Z<<>5 THEN 75 
70 NEXT Z 
75 PRINT X,Y,Z 
80 NEXT Y 
85 PRINT X,Y,Z 
90 NEXT X 
95 PRINT X,Y,Z 
100 END 
RUN 
2. 指出 程序 的 书写 错误 。 
个 10 FOR A 王 1TO 100 
20 W 一 AxAx 人 A 
30 FOR B 王 1 TO 5 
40 W 一 W 十 B 
50 PRINT W 
60 NEXT B 
70 IF B)100 THEN 40 
80 GOTO 20 
90 PRINT A 
100 NEXT A 
110 END 
@) 10 FOR A 王 1TO7 
20 FOR B 王 2 TO 10 STEP 3 


。134。 


30 W 王 Ax*B 十 A/B 
40 PRINT W 
50 NEXT 和 
60 PRINT 和 A 
70 NEXT B 
80 END 
3. 已 知 xi yiy xz、yzy xs、ys，…，xz yz 的 值 , 求 下 王 
万 一 玉 的 值 。 当 x% 一 wm<0 时 打印 出 错 标 记 , 继 续 进行 下 一 次 
求 值 运算 。 
4. 求 1000 以 内 能 够 除 以 3 余 2 的 整数 ,并 统计 这 种 整数 
的 个 数 。 
5. 编写 0" 一 180" 之 间 每 隔 1" 的 正弦 .余弦 .和 弧度 值 表 .并 
按 如 下 格式 输出 : 


三 角 函 数 表 
角 度 弧 度 SIN COS 
0 
1 
2 
180 3. 14159 


6. 已 知 :ClyC2z，… “co 和 X 的 值 , 求 


CGO 一 一 cxlIem 
的 值 。 
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7 找 出 数字 符号 互 不 相同 的 一 个 四 位 整数 ,使 得 前 两 位 数 
字 之 和 的 平方 等 于 后 两 位 数字 之 和 的 立方 ,如 果 没 有 这 样 的 四 
位 数 , 则 给 出 说 明 信 息 。 
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第 六 章 “” 数 组 和 维 语句 


6. 1 什么 是 数组 


直到 目前 为 止 ,程序 中 用 到 的 所 有 变量 ,无论 是 数值 型 变量 
还 是 串 型 变量 ,它们 均 是 以 个 体面 目 出 现 的 .这 犹如 一 个 普通 公 
民 , 他 (她 ) 既 不 代表 某 个 单位 ,也 不 代表 某 级 组 织 。 但 是 又 正如 
现实 生活 中 一 样 ,若干 个 体 可 以 组 成 一 个 集体 。 例 如 :一 个 学 生 
班级 ,一 个 学 校 ,一 个 部 门 ,一 级 组 织 等 等 都 是 一 种 典型 的 集体 。 
在 BASIC 语言 中 ,用 于 描述 个 体 的 是 前 面 章 节 中 介绍 和 使 用 的 
变量 .常数 和 字符 串 。 而 用 于 描述 这 若干 个 体 组 成 的 集体 则 是 数 
组 。 简单 说 来 ,数组 就 是 若干 同类 数据 所 组 成 的 集体 。 集体 中 单 
个 成 员 ,就 叫 数组 的 元 素 。 全 班 学 生 的 成 绩 数据 可 以 组 成 一 个 数 


组 ,每 个 学 生 的 成 绩 均 是 数组 元 素 。 而 (5， 10， 25， 30， 40， 80， 
1 3 .5 


7 9 1 
人 
个 数 可 以 很 多 ,也 可 以 很 少 。 对 于 数组 我 们 有 如 下 的 要 求 ， 

1 数组 的 名 字 

对 任何 相同 类 型 的 数据 集合 ,如 果 我 们 需要 作为 数组 的 话 ， 
都 必须 给 该 集合 取 一 个 名 字 , 这 就 是 数组 名 。 数 组 名 同 变量 名 的 
构成 方法 一 样 。 

2 分配 存储 空间 


100) 和 都 可 以 用 数组 来 表示 。 数 组 中 包含 的 数据 
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任何 一 个 数组 ,一 经 说 明 , 系 统 就 必须 在 内 存 中 为 之 分 配 存 
储 空间 为 了 分 配 最 适合 的 内 存 空 间 , 说 明 数 组 时 必须 指出 它 所 
需要 的 最 大 存储 空间 。 我 们 把 这 个 最 大 的 存储 空间 称 为 数组 的 
大 小 。 

3. 数组 元 素 

定义 数组 是 按 一 种 集体 的 方式 来 说 明 的 。 但 实际 使 用 时 却 
又 是 按 个 体形 式 来 引用 的 .对 数组 中 的 个 体 我 们 称 为 数组 元 素 ， 
数组 元 素 也 是 一 种 变量 , 称 为 下 标 变量 ,数组 元 素 的 位 置 序号 是 
重要 的 ,因为 对 数组 元 素 的 存 取 就 是 通过 指出 元 素 在 数组 中 的 
位 置 序号 来 实现 的 。 这 种 存 取 方 法 ,犹如 教师 只 须 说 出 座位 号 
( 某 行 某 列 ) 就 可 以 指定 学 生 一 样 。 


6.2 数组 的 表示 方法 


程序 中 如 何 表示 一 个 数组 呢 ? 这 是 用 维 语句 来 说 明 的 。 
6. 2.1 维 语句 的 格式 


格式 : DIM 数组 名 1( 下 标 1, 下 标 2,…)[, 数 组 名 2( 下 标 
1,…)…] 

作用 :定义 一 个 或 多 个 数组 ,并 为 数组 在 内 存 中 预先 分 配 存 
储 空间 。 

其 中 :DIM 是 数组 说 明 符 。 数 组 名 的 构成 方法 同 变量 名 一 
样 . 下 标 指明 数组 元 素 能 够 分 配 的 最 大 存储 空间 ,或 者 看 成 是 数 
组 元 素 能 够 变化 的 最 大 范围 。 下 标的 个 数 称 为 数组 的 维 数 。 

1. 一 维 数组 

能 够 用 一 个 下 标 来 描述 的 数组 我 们 称 为 一 维 数 组 。 例 如 : 
(50,25,37,19,82,73,95) 数 据 集 , 可 以 用 一 维 数组 来 描述 .假定 
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该 数据 集 的 名 字 为 A, 共 有 7 个 元 素 , 用 维 语句 说 明 如 下 

DIM A(6) 

由 于 分 配 空间 总 量 从 第 0 号 开始 分 配 ,因此 A 的 最 大 下 标 
为 6。7 个 元 素 的 位 置 分 别 是 :A(0),A(1),A(2),A(3),A(C4)，A 
(5),A(6)。 这 里 的 A(0),A(1),A(2),…A(6) 就 称 为 下 标 变 
量 。 

以 上 我 们 定义 了 一 个 一 维 数组 A。 如 果 我 们 将 50 送 到 A 
(0),25 送 到 A(1),37 送 到 A(2),…, 按 这 种 顺序 将 (50,25,37， 
19,82,73,95) 分 别 送 到 A(0)~A(6) 中 ,那么 A(4) 的 值 就 是 
82,A(6) 的 值 是 95。 圆 括号 中 的 号 码 就 是 数组 元 素 在 数组 中 的 
位 置 。 定 义 一 个 数组 只 是 把 存储 位 置 固定 下 来 了 ,但 该 位 置 具 体 
是 什么 值 , 还 要 看 我 们 送 的 是 什么 数据 。 犹 如 座位 定 了 ,但 某 个 
座位 是 张 三 吗 还 是 李 四 , 那 就 看 具体 是 哪个 人 坐 在 那里 了 .直观 
说 来 ,凡是 排 成 一 队 的 数据 ,我 们 都 可 以 用 一 维 数组 来 刻 划 之 。 

2. 二 维 数组 

类 似 地 ,用 两 个 下 标 来 描述 的 数 给 我 们 称 为 二 维 数组 。 在 实 
际 生活 中 ,凡是 能 够 排 成 行 和 列 长方形、 正方形) 的 数据 我 们 都 


可 以 用 二 维 数组 来 描述 。 如 ， 
Il1 12 13 14 


21 22 23 24 
31 32 33 34 

DIM B(2,3) 

数组 B 共有 三 行 四 列 (包括 第 0 行 第 0 列 )。 这 里 的 了 B 是 数 
组 名 字 ,2 和 3 都 是 下 标 . 下 标 2 表示 数组 B 的 行 号 变化 范围 是 
0 到 2, 下 标 3 表示 数组 的 列 号 变化 范围 是 0 到 3。 

要 表示 数组 B 中 的 某 一 个 元 素 , 只 能 用 下 标 变量 的 形式 。 
如 :B(0,1) 表 示 数 组 B 中 第 0 行 第 1 列 的 元 素 ,B(1,3) 表 示 数 
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B 一 


,用 维 语句 措 述 如 下 : 


组 B 中 第 1 行 第 3 列 的 元 素 。 其 余 类 似 。 数 组 说 明 只 确定 了 元 
素 的 位 置 ,但 该 位 置 究竟 存放 的 是 什么 值 ,这 同 数 组 获得 数据 有 
关 。 由 于 下 标 变量 仍然 是 一 种 变量 ,因而 根据 需要 ,我 们 可 以 给 
下 标 变量 赋 一 定 的 值 。 如 B(1,2) 一 23,B(2,3) 一 34 等 。 

按照 上 述 方法 ,我 们 还 可 以 定义 三 维 数组 .四 维 数组 等 等 。 


数组 最 为 普遍 。 

3. 下 标 和 下 标 变量 

在 定义 和 引用 数组 元 素 时 ,下 标 和 下 标 变量 是 两 个 不 同 而 
又 有 联系 的 概念 。 在 维 语句 DIM 中 ,下 标 用 于 刻 划 数组 存储 空 
间 的 大 小 ,而 在 下 标 变量 中 ,下 标 却 用 于 确定 元 素 在 数组 中 的 位 
置 。 

下 标 变 量 是 指数 组 中 的 一 个 元 素 。 如 B(1,2),B(0,3) 就 是 
下 标 变 量 。. 下 标 变 量 中 表现 出 来 的 下 标 可 以 是 一 个 常数 ,也 可 以 
是 算术 表达 式 。 如 :B(1,2) 中 的 下 标 1,2 是 具体 的 数值 常数 。 如 
B(I 十 1,J) 或 BG,J 十 1) 中 的 I++1 和 J 十 1, 均 是 算术 表达 式 。 


6. 2.2 使 用 维 语句 时 应 注意 


定义 数组 的 方法 是 简单 的 。 但 实用 中 需要 注意 以 下 几 点 : 

1. 数组 一 定 要 先 说 明 后 使 用 ,程序 中 用 到 的 数组 , 必须 在 
存 取 之 前 用 DIM 来 定义 。 如 程序 中 需 用 到 w 数组 ,可 作 如 下 形 
式 的 说 明 ， 

10 DIM W(10,10) 

这 是 一 个 11 行 11 列 的 数组 。 如 果 一 个 数组 最 多 11 个 元 
素 ( 下 标 是 10) ,那么 这 种 数组 可 以 不 用 DIM 说 明 而 直接 使 用 。 
这 种 情况 称 为 数组 的 隐 式 说 明 , 直 接 用 维 语句 DIM 来 描述 的 数 
组 称 为 显 式 说 明 。 
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2. 用 一 个 DIM 说 明 符 可 以 定义 多 个 数组 名 ,但 各 个 数组 
名 都 必须 给 出 各 自 的 下 标 。 如 果 DIM 定义 了 多 个 数组 名 ,那么 
各 个 数组 名 之 间 必 须 用 逗号 ”“,” 隔 开 。 如 : 

10 DIM A(3,5),B(10,8),C(10,10,10) 

这 里 A.B 是 二 维 数组 ,C 是 一 个 三 维 数组 。A`B 和 B、C. 之 
间 用 “,? 隔 开 。 

3. 如 果 一 个 数组 是 多 维 数组 ,那么 描述 维 数 的 下 标 之 间 也 
必须 用 “ ,” 隔 开 。 如 ， 

10 DIM W(10,20,30) 

这 是 一 个 三 维 数组 。10,20,30 之 间 均 用 “,” 隔 开 各 个 不 同 
的 下 标 。 

4 下 标 允许 的 最 大 值 是 32767, 最 小 值 是 0。 数 组 的 最 大 空 
间 是 下 标 值 加 1 相 乘 的 积 。 如 : 

10 DIM A(10),B(10,20),C(5,6,7) 

数组 A 的 最 大 空间 = 王 (10 十 1) 王 11 

数组 B 的 最 大 空间 = (10 十 1) X (20 十 1) 王 231 

数组 C 的 最 大 空间 = (5 十 1) X (6 十 1) X (7 十 1) 一 336 

5. 在 引用 下 标 变 量 时 不 能 超过 下 标 范围 。 如 : 

10 DIM W(10,15) 

下 标 变量 WwW(5,10) 是 正确 的 ,而 W(11,3) 或 W(5,18) 均 是 
不 正确 的 ,因为 下 标 超 界 了 。 即 是 说 ,在 w 数组 中 找 不 到 第 11 
行 3 列 和 第 5 行 18 列 这 两 个 元 素 ( 位 置 ) 。 

6. 在 同一 程序 中 ,一 个 数组 名 只 能 用 DIM 说 明 一 次 ,但 可 
以 使 用 多 次 。 


例 6.1 10 DIM A(10,10),B(15,15) 


50 DIM A (35,30) 
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这 里 的 数组 A 定义 了 两 次 ,这 是 不 正确 的 。 
7. 下 标 变量 中 的 下 标 可 以 是 一 个 具体 的 数值 常数 ,也 可 以 
是 一 个 算术 表达 式 , 而 维 语句 DIM 中 的 下 标 可 以 是 正 整 数 或 已 
有 值 的 变量 名 。 
例 6. 2 5 INPUT N,M 
10 DIM A(N,M) 


40 I 王 3:J 一 5 
.50 A(I 十 1,J 十 2) 一 153 


这 里 I 十 1 和 J 十 2 就 是 算术 表达 式 。 

8. 在 定义 整数 组 和 字符 串 数 组 时 , 必须 在 数组 名 之 后 给 出 
整数 或 字符 串 的 标志 。 如 : 

10 DIMX$ (10,10),M% (5,5) 

这 里 的 X$ 是 字符 串 数 组 ,其 数组 中 的 元 素 只 能 取 串 型 值 。 
M%% 是 整数 组 ,数组 元 素 只 能 是 整 型 数值 。 


6. 2.3 ”如何 给 数组 赋值 


用 DIM 定义 数组 ,只 是 给 数组 分 配 存 储 空间 ,但 如 何 把 具 
体 的 数据 传送 到 相应 的 位 置 呢 ? 一 般 可 用 循环 语句 来 实现 。 
1. 一 维 数组 如 何 得 到 数据 
假设 有 一 个 一 维 数 组 A= (10,30,50,15,80,28) ,用 程序 来 
描述 如 下 例 : 
例 6.3 向 一 维 数 组 传送 数据 。 
186 DIM AR(5) 
2 FOR I= 61T05 
386 RERD RCI) 
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对 数 
别 送 
变量 


48 NEXT I 

PRINT “Ah(q4)= ”2R(C4》 

DARTA 19, 39,59, 15,89,28 
79 END 


56 
69 


JRUN 
Rd4)=89 

第 10 句 定 义 一 维 数组 A, 它 只 有 6 个 元 素 。 第 20 一 40 句 
组 A 读 入 数据 。 一 重 循环 结束 后 就 把 数据 区 提供 的 数据 分 
到 了 A 的 各 个 元 素 位 置 上 。 第 30 句 中 的 A(D 是 一 个 下 标 
, 随 着 工 值 的 变化 (0 一 5) ,就 提供 了 数组 A 的 各 个 位 置 , 因 


而 能 够 把 数据 送 到 数组 的 相应 位 置 。 第 50 名 打印 出 下 标 变量 
A(4) 的 值 , 以 验证 所 需 数据 是 否 传送 到 相应 位 置 上 。 


100) 


办 法 
#x 10 


例 6.4 生成 数组 B= (10,20,30,40,50,60,70,80,90， 


19 DIM B(9) 

29 FORI=8T09 

38 B(I) = TI 19+ 19 

486 NEXT I 

58 PRINT “B(9)=”5B(9)3” "1"B(8)=”B(8》 
68 END 


]RUN 
B(8)=16 B(8)=99 


由 于 数组 元 素 的 值 是 有 规律 的 ,所 以 就 不 必 再 用 数据 区 的 

来 提供 数据 了 。 随 着 循环 语句 的 执行 ,第 30 句 的 BGD 一 I 

十 10 就 能 自动 生成 10,20,30,…,100 的 数据 并 送 到 相应 
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位 置 。 


2. 二 维 数组 如 何 得 到 数据 


设 有 二 维 数 
35 
101 

W 一 
11 
54 


组 : 


72 
32 
75 
47 


48 
49 
77 
98 


63 
53 
69 
78 


94 
68 
61 
87 


显然 这 是 一 个 四 行 五 列 的 二 维 数 组 。 
例 6.5 按 行将 数据 送 到 W 的 各 个 元 素 位 置 。 


人 SS 


69 ”PRINT 
79 DATR 
7 了 2 “DRTR 
74 DRTR 
76 DRATR 
89 END 


]RUN 
蓝 (3，1)=q7 


DIM W(3*4》 
FOR I=61T03 
FOR J= 6'T0O94 
RERAD 蓝 (IJ》 
586 NEXT JI 


“uC3，1)=”) 则 (3，1》 
35,72，48,63,94 
191, 32,49,53,，68 
11,75,，77,69,61 
54,47，98，78,87 


上 述 程序 中 ,把 行 的 变化 作为 外 循环 (D ，, 列 的 变化 作为 内 
循环 (J) ,这 种 输入 方式 的 实际 效果 就 是 按 一 行 一 行 的 顺序 , 依 
次 把 数据 送 到 数组 w 中 。 当 然 我 们 也 可 以 按 一 列 一 列 的 顺序 来 
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输入 数据 。 按 什么 方式 ( 按 行 或 按 列 ) 输 入 数据 ,数据 就 应 该 按 什 
么 方式 来 排列 最 好 是 按 行 输入 ,这 比较 符合 我 们 的 阅读 和 书写 


习惯 。 


总 之 ,数据 要 传送 到 正确 的 数组 位 置 。 


例 6.6 用 程序 来 生成 一 个 单位 阵 。 
0 


1 0 0 0 0 
0 和 8 
0 01 .00 0 
0 00 下 用 
0 9000 0 
时 


这 个 数组 中 的 元 素 值 是 有 规律 的 , 除 主 对 角 线 元 素 值 为 : 
以 外 ,其 余 元 素 值 均 为 0。 


19 
28 
39 
49 


DIM M(5,5) 

FOR I= 1T05 

FOR J= 9T05 

IF TI = J THEN M(I,J》 = 1: 6G0T0 55 


56 MI,J) = 9 


55 
69 
65 
79 
80 


PRINT MI J)5” “3 
NEXT 了 

PRINT 

NEXT II 

END 


]RUN 

106668 
1606669 
09061969 
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eeo61e66 
eeoeele 
oo66e1 
在 程序 中 , 随 着 二 重 循环 的 执行 ,40 和 50 两 句 就 能 使 主 对 
角 元 素 值 为 1, 非 主 对 角 元 素 值 为 0。 其 它 任何 维 数 的 数组 均 可 
按 上 述 的 原则 来 定义 和 生成 。 


6.3 数组 的 应 用 


在 程序 设计 中 ,数组 用 得 相当 广泛 。 有 些 问 题 必须 用 数组 才 
能 解决 。 而 有 些 问题 可 用 数组 也 可 以 不 用 数组 。 

例 6.7 用 数组 来 统计 学 生成 绩 。 

学 号 语文 政治 数学 物理 化 学 外 语 生物 总 分 

6 8 87 8 8 79 77 78 … 

6l4 75 79 80 76 77 79 66 


假设 全 班 共有 10 人 ,总 分 由 计算 机 自动 统计 ,我 们 只 需 按 
要 求 输入 原始 数据 ,统计 结果 由 计算 机 输出 。 解 题 思路 是 : 

@ 用 二 维 数组 来 描述 学 生成 绩 表 。 把 学 号 和 总 分 等 计算 在 
内 共计 9 项 (如 上 表 )。 

@@ 用 循环 语句 把 原始 数据 输入 到 数组 ,机 器 自动 统计 总 分 
并 将 分 数 送 到 总 分 的 相应 位 置 。 

@@ 按 表格 形式 输出 数据 。 
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19 DIM S(19,9)》 
12 PRINT “学 号 "ThRB( 5)5" 语 文 "5 TRB( 9)5" 政 治 "5 TARB( 13?5” 
数学 ": TRB( 17)! 物 理 “4 

14 PRINT ThRB( 21)5 化 学 "上 ThRB( 25) 委 外语" TARB( 29)2 生 物 " 
; TARB( 33)5" 总 分 ” 

16 PRINT 

29 FOR I = 1:TO 19 

25V=9 

39 FORJ=11T08 

49 .RERD S(I,J)》 

5@ IF J 了 = 1 THEN PRINT S(I,J)5: 60T0O 86 

68 PRINT TARB( Jw 4 - 3)5S(I,J)) 

78@UWnmuWy+SIJ) 

88 NEXT 了 J 

98 3(I,9) = 划 

198 PRINT TAB( 33)? 训 

118 NEXT I 

128 ”DRTR 611,85,87,86,83,79,77,78 

121 DRTR 614,75,79,89,76,77,79,66 

122 ”DRTR 616,77,75,73,88,68,79,85 

123 ”DRTR 618,98,93,96,92,88,89,98 

124 DATR 622,66,64,68,75,74,77,65 

125 “DRTR 624,64,63,58,68,76,72,54 

126 ”DRTR ”639,57,58,64,65,66,63,61 

127 ”DRTR ”635, 89,78,79,77,75,74,73 

128 ”DRTR 636,88,89,98,87,86,83,99 

129 DATR 642,77,74,76,78,89,71,58 


136 “END 
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]RUN 
学 号 语文 政治 数字 物理 化 学 外 语 生 物 总 分 


61185 87 86 83 79 7 了 ?7 78 575 

614q9 ?75 79 89 76 77 79 66 532 

616 ?7 75 73 89 68 79 85 537 

618 98 93 96 92 88 89 98 638 

622 66 64q4 68 75 ?7q 77 65 489 

624 64 63 58 68 786 72 5q dd9 

638 57 58 64 65 66 63 61 434 

635 88 78 79 7 了 7 75 7q 73 536 

636 88 89 98 8 了 7 86 83 986 613 

642 ?F7 ?74 ?6 78 89 71 68 524 

请 读者 自己 分 析 程 序 的 执行 情况 。 

例 6.8 将 n 个 元 素 按 从 小 到 大 的 顺序 排列 。 

这 里 必须 要 用 到 数组 , 解 题 思路 是 ; 

中 定义 和 生成 一 维 数组 A。 

@@ 通 过 比较 和 位 置 交换 ,把 最 小 的 数据 移 到 数组 的 最 前 面 ， 
较 大 的 数据 移 到 数组 的 后 面 。 

图 通过 n 一 1 次 比较 可 以 得 出 一 个 最 小 值 , 再 经 过 n 一 2 次 
比较 又 可 得 到 一 个 次 小 值 .如 此 进行 ,直到 把 所 有 数据 按 从 小 到 
大 排列 为 止 。 

@@ 尽 管 处 理 的 是 一 维 数组 ,但 必须 用 到 二 重 循环 外 循环 控 
制 将 最 小 值 移 到 数组 的 前 面 ,其 循环 一 次 只 能 确定 一 个 较 小 值 。 
内 循环 控制 使 两 个 数据 进行 比较 。 内 循环 结束 后 才能 确定 一 个 
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值 是 否 较 小 。 
先 看 下 面 的 框图 ,然后 根据 框图 再 来 读 程序 。 


19 DIM AC19) 

28 FOR I = 1T0 419 
38 RERAD AI) 

49 NEXT 1 
59 
59 


生成 一 维 数组 A 


FOR TI = 1T0O9 
FOR J=*I+1ToO 19 
?86 IF R(I)》《“ hRJ) THEN 119 


886 世 = RI) 
W=A(i) 


98 R(I) = R(J) 
A(i)=A(j) 
ia 吉 198 R(J) = 上 
118 NEXT 了 
128 NEXT I 


136 FOR ITI = 1 TO 10 

1486 PRINT RCI” ”3 

1586 NEXT I 

168 ”DRTR 569,59,86,23,75,99， 
19，132,48,46 

179 “END 

]RUN 

19 23 46 48 59 68 ?5 88 94 132 


是 


说 明 ; 
20 一 40 句 用 于 生成 数组 A。 
50 一 120 句 用 于 将 数组 A 的 元 素 值 排序 。I 循环 一 次 ,就 确 
定 出 一 个 较 小 值 。 
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130 一 150 句 用 于 输出 排序 后 数组 的 值 。 
问题 与 思考 


1. 为 什么 数组 必须 先 定义 后 使 用 ? 
2. 下 标 、 下 标 变量 有 何 区 别 ? 
3. 数组 的 维 数 就 是 下 标 变量 的 个 数 这 种 说 法 对 吗 ? 


1. 指出 下 列 程序 的 错误 。 

Q@ 10 DIM A(10,10) 
20 FOR I=1 TO 10 
30 FOR J 一 1 TO 10 
40 DIM A(15,15) 
50 READ A(I,J) 
60 NEXT IJ 
70 NEXTI 
80 DATA…( 数 据 省 略 ) 
90 END 

四 10DIMA$(10,10) 
20 FOR I=-1TO 10 
30 FOR J=-1 To 10 
40 READ A$ (LI,J) 
50 NEXTJ 
60 NEXT I 
70DATA 10,20,30,80,90,100,75,85,95，… 
80 END 

2. 指出 下 列 程序 运行 的 结果 。 
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10 DIM B(5,5) 

20 FOR I=1TO5 

30 FOR J 王 1 TO 5 

40 IF I 一 J 之 =0THEN A(LJ) 一 1:GOTO 60 
50 A(L,J) 一 I 一 J 十 1 

60 PRINT A(GLJ)i”  ”; 


70 NEXT J 
80PRINT 
90 NEXTI 
100 END 
RUNw/ 
3. 用 程序 生成 如 下 形式 的 矩阵 。 
0001 1111 
0 010 1001 
do 1 on @lono0l 
1 000 1 入 = 和 1 
4. 将 下 列 两 个 矩阵 的 对 应 元 素 进 行 交 换 。 
1 3 5 2 4 6 
A=|7 9 1 B=|8 10 12 
13 15 17 14 16 18 
5. 将 卜 记 黄 个 息 阵 相 来 。 
15 24 31 24 28 29 
A 一 |52 28 19| B=|31 42 15 
Il1 14 17 7 9 2 
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第 七 章 “BASIC 函数 


根据 函数 的 作用 和 运算 结果 ,我 们 把 BASIC 函数 分 成 如 下 
几 类 :算术 运算 函数 ,字符 串 处 理 函数 ,数据 类 型 转换 函数 ,格式 
打印 控制 函数 以 及 自 定义 函数 。 


7.1 算术 运算 函数 


算术 运算 函数 可 以 参与 BASIC 算术 表达 式 中 的 算术 运算 
或 单独 进行 运算 以 得 出 一 个 数值 。 


7.1.1 三 角 函 数 


1. 求 正弦 值 
格式 :SINCX) 
作用 : 求 X 弧度 的 正弦 值 。 
例 7.1 ? SIN(C5)il/ 
-.958924274 
注意 :@ 变 量 X 可 以 是 任何 合法 的 算术 表达 式 。 


包 变 量 X 必须 用 弧度 来 表示 。 
2. 求 余弦 值 
格式 :COS (X) 


作用 : 求 广 弧度 的 余弦 值 。 
例 7. 2 ? COS (5)u/ 
.283662186 
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3. 求 正 切 值 
格式 :TAN(X) 
作用 : 求 X 弧度 的 正切 值 。 
例 7.3 ? TAN(5)ul 
-3. 380515 
4. 求 反正 切 值 
格式 :ATN(CX) 
作用 : 求 X 的 反正 切 值 。 
例 7.4  ? ATNC5)ul 
1. 37340077 
注意 :变量 X 必须 在 -二 一 十 过 之 间 。 
对 于 三 角 函 数 ,我 们 要 强调 以 下 两 点 : 
@ 提 供 的 实在 参数 (调用 时 的 参数 ) 必 须 是 弧度 ,如 果实 际 
应 用 中 是 角度 ,那么 必须 把 角度 转换 成 弧度 。 按 180" 一 ， 
1 一 了 和 公式 进行 转换 。 最 好 由 机 器 自动 进行 转换 。 
@ 实 在 参数 可 以 是 数值 常数 数值 变量 或 任何 合法 的 算术 
表达 式 。 


7.1.2 其 它 数 学 函数 


1. 求 绝对 值 
格式 :ABS(X) 
作用 : 求 X 的 绝对 值 。 
例 7.5 ? ABS(C-3)ul/ 

3 
2 求 平方 根 
格式 :SQR(CX) 

。153 。 


作用 : 求 X 的 平方 根 。 
例 7.6 ? SQR(100)u7 
10 
注意 :X 的 值 只 能 是 正 数 。 
3. 求 举 的 值 
格式 :EXP(X) 
作用 : 求 们 的 值 。 
例 7.7 ? EXP(3)w/ 
20. 0855369 
4. 求 自然 对 数值 
格式 :LOG(X) 
作用 : 求 X 的 自然 对 数 Lg(x) 的 值 。 
例 7.8 ? LOG(3)w/ 
1. 09861229 
注意 :X 的 值 必须 大 于 0。 
5. 取 整 数 
格式 :INTCX) 
作用 : 取 最 接近 X 而 又 不 大 于 X 的 最 大 整数 。 
例 7.9 ? INT(3. 14159)w/ 
3 
? INT(5. 99998)w/ 
5 
? INT(-3. 14159)wui/ 
-4 
6. 求 符 号 值 
格式 :SGN(X) 
作用 : 取 X 的 符号 值 , 取 值 原则 是 
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1, 则 X>>0 
若 ssoo-| oa Xe=0 
-1, 则 X<0 
例 7. 10 ? SGN(5)ul/ 
1 
? SGN(CO)w/ 
0 
? SGN(-5)u/ 
-1 
7. 求 随机 数 
格式 :RND(X) 
作用 :根据 X 的 值 来 产生 一 个 随机 数 。 原 则 是 : 
X>0, 产 生 0 一 0. 999999999 之 间 的 一 个 随机 数 。 
若 Reo| x- 关 和 5H 个 到 榴 BH。 
X<0, 产 生 与 X 相对 应 的 一 个 随机 数 。 
例 7.11 产生 一 系列 随机 数 。 


19 PRINT "RND(1)=”5 RND 《1》 
26 PRINT “RND(1t)=”: RND〈1) 
39 PRINT “RND(S5)=” RND 《5》 
498 PRINT “RND(9)="; RND 〈8)》 
56 PRINT “RND(9)=” RND 〈8》 
69 PRINT “RND(-5)=“; RND《〈 - 5) 
79 PRINT "RND(-3)=” RND《〈 - 3) 
898 PRINT “RND(-5)=” RND《〈 - 5) 
986 .PRINT “RND(-3)= ”5 RND《〈 - 3) 
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]RUN 

RND(1)=.276911996 
RND(1)=. 139756248 
RND(5)=.690192628 
RND(9)=.6981692928 
RND(8)=.696162628 

RND( -5y=3.73726468E-68 
RND(-3)=4.48217179E-68 
RND(-5)=3,73720468E-68 
RND(-3)=4.48217179E-68 


考察 以 上 算术 运算 函数 ,它们 有 如 下 一 些 共同 点 

@ 提 供 的 参数 可 以 是 算术 表达 式 。 

加 运算 的 结果 均 是 数值 。 

图 三 角 函 数 要 求 参数 均 用 弧度 。 

在 使 用 这 些 函数 时 还 要 注意 ， 

@ 正 确 提供 实在 参数 .例如 有 些 参数 要 求 是 正 数 值 , 有 些 参 
数 有 范围 限制 ,如 求 反正 切 值 arctgX ,要 求 X 的 值 在 
人 

G@BASIC 函数 同 数学 函数 在 写法 上 的 区 别 。 

轿 函 数 是 表达 式 而 不 是 语句 ,因为 它 只 能 进行 函数 运算 而 
不 能 提供 操作 动作 。 它 可 以 是 语句 的 组 成 部 分 。 


7.2 字符 串 处 理 函 数 


为 进行 字符 串 处 理 ,BASIC 语言 中 提供 了 如 下 的 字符 串 函 
数 。 
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1. 取 左 子 字 符 串 

格式 :LEFT$ (AS$,n) 

作用 : 取 字 符 串 A$ 中 左边 的 n 个 字符 。 

例 7.12 取 字 符 串 A$ 中 左边 的 4 个 字符 。 


19 Rh = “ABCDEFGH” 
29 8B8$ = LEFT$ (hg$,q) 
30 PRINT “B$=…5B$ 
49 END 


]RUN 
8B8$=ABCD 
2、 取 右 子 字符 串 
格式 :RIGHTS$ (A$ ,n) 
作用 :取出 字符 串 A$ 中 右边 的 n 个 字符 。 
例 7.13 取出 A$ 中 右边 的 4 个 字符 。 


18 hg = “hRBCDEFGH" 
28 8$ = RIGHT$《〈hs$,q) 
39 ”PRINT “8B$= "1B$ 

48 END 


]RUN 
8B$=EFGH 
3. 取 中 间 子 字符 串 
格式 :MID$ (Ad 和 $ ,ny,m) 
作用 : 取 字 符 串 A$ 中 从 第 n 个 字符 开始 的 m 个 字符 。 
其 中 :n 表示 开始 字符 位 置 ,m 表示 字符 的 个 数 。 
例 7.14 取出 A$ 中 间 的 字符 。 
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19 h$ = “RBCDEFGH” 

29 8B8$ = MID$《〈h$，344) 
39 PRINT “B$=”)B$ 

49 END 


]RUN 


B$=CDEF 
对 于 MID $ 函数 ,需要 注意 以 下 几 点 : 


@ 如 果 m 被 省 略 ,就 表示 取 从 第 n 个 字符 开始 直到 最 后 那 
个 字符 之 间 的 所 有 字符 。 
@ 若 n 超过 实际 字符 个 数 , 则 产生 一 个 空 串 (屏幕 上 没有 任 
何 表示 ) 。 
轿 若 m 大 于 实际 字符 的 个 数 , 则 有 多 少 字 符 就 取 多 少 字 
符 。 
图 1I 委 n 委 255,1 委 m 委 255, 若 m,n 值 超 界 , 则 出 现 
“ILLEGAL QUANTITY ERROR”, 表 示 不 合法 的 参数 出 错 。 
4. 求 字符 串 的 长 度 
格式 :LEN(A$) 
作用 :检测 字符 串 A$ 中 有 多 少 个 字符 。 
例 7.15 求 A$ 的 字符 串 长 度 。 
19 Rh$ =“ 月 BCDEFGH” 
28 B = LEN (R$)》 
38 PRINT “B=…5B 
48 END 


对 于 字符 串 处 理 函 数 必须 注意 : 
志 函 数 中 用 到 的 A$ 可 以 是 一 个 字符 串 常数 或 字符 串 变 


量 ,也 可 以 是 字符 串 表达 式 。 


G@)n 和 m 可 以 是 算术 表达 式 。 
@ 字 符 串 长 度 函 数 得 到 的 是 一 个 算术 值 。 


7.3 数据 类 型 转换 函数 


BASIC 提供 了 将 数值 型 转换 成 字符 型 数据 以 及 把 字符 型 


〈 仅 由 数字 开头 的 字符 串 ) 转 换 成 数值 型 数据 的 数据 类 型 转换 函 


数 。 


将 数值 型 转换 成 字符 型 

格式 :STR $ (算术 表达 式 >) 

作用 :将 给 定 的 算术 表达 式 的 值 由 数值 型 转换 成 字符 型 。 
例 7.16 将 数值 型 转换 成 字符 型 。 

? STR$(10x 10)wl/ 

100 (这 是 字符 100) 

19R = 19yk 19 

28 8B8$ = STR$ 《Rh) 

38 PRINT “B$= ”1B$ 

486 END 


]RUN 

B4=109 

? STR$ (3.72x* 10” 15)wl 

3.72E 十 15 (字符 串 ) 

数值 型 转换 成 字符 型 以 后 就 可 参与 字符 串 的 运算 了 。 
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2. 将 字符 型 转换 成 数值 型 
格式 :;VAL$(( 串 表达 式 ) 
作用 :将 由 数字 开头 的 字符 串 转换 成 数值 。 
例 7.17 将 *123 十 ABC 转换 成 数值 。 
? VAL(“123 十 ABC”)wl 
123 (数值 ) 
? VAL(“123456789>)w/ 
123456789 (数值 ) 
? VAL(“A123 十 B4562>)wl/ 
0 
对 于 VAL 函数 ,并 非 所 有 字符 串 都 能 转换 成 数值 。 对 于 全 
部 由 数字 符号 组 成 的 字符 训 ,VAL 函数 可 以 将 其 完整 地 转换 成 
数值 。 对 于 仅 由 数字 开头 的 字符 串 ,VAL 只 能 将 开头 连续 的 数 
字符 号 转换 成 数值 。 对 于 非 数 字符 号 开头 的 字符 串 ,VAL 只 能 
转换 成 数值 0。 
3. 求 数 值 对 应 的 ASCII 码 字符 
格式 :CHR $ (算术 表达 式 ) 
作用 :给 出 算术 表达 式 值 所 对 应 的 ASCII 码 字符 。 
例 7.18 求 0 一 255 之 间 的 ASCII 码 字符 。 
10 FOR I 王 0 TO 255 
20 PRINT CHR$ (ID 2”; 
25 IF INT(ILI10) * 10 王 ITHEN PRINT 
30 NEXTI 
40 END 
RUNL/ 
屏幕 上 显示 出 所 有 字符 (这 里 省 略 了 )。 第 25 句 的 作用 是 
使 每 10 个 符号 占 一 行 , 便 于 浏览 。 
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注意 ， 

电 算 术 表 达 式 的 值 必须 在 0 一 255 之 间 。 

@@ 若 算术 表达 式 的 值 为 实数 ,机 器 自动 转换 成 整数 后 再 进 
行 函数 运算 。 

图 用 该 函数 可 以 得 到 键盘 上 没有 的 许多 符号 。 

4. 求 字符 的 ASCII 码 

格式 :ASC$ (( 字 符 串 表达 式 ) 

作用 :返回 字符 串 中 第 一 个 字符 的 ASCII 码 值 。 

例 7.19 求 A 的 ASCII 码 值 。 

? ASC(“ABCD”)ul/ 


65 (字母 A 的 ASCII 码 值 是 65) 
? ASC(“WXYZ2)u] 
87 (字母 W 的 ASCII 码 值 是 87) 


注意 :该 函数 每 次 只 能 返回 字符 串 表达 式 中 最 左边 那个 字 
符 的 AScII 码 值 ,而 不 能 给 出 串 中 全 部 字符 的 AsCII 码 值 。 


7.4 控制 输出 格式 的 函数 和 命令 


前 面 我 们 介绍 和 使 用 了 PRINT 语句 ,其 一 般 格式 应 该 是 
PRINT (打印 格式 ]5 表 达 式 ], 其 中 的 打印 格式 是 表达 式 之 后 紧 
跟 分 号 或 逗号 ,这 种 情况 我 们 已 经 介绍 了 .下面 再 介绍 几 个 与 之 
有 关 的 函数 。 


7.4.1 格式 及 其 作用 


1 空格 函数 

格式 :SPC((〈 算 术 表达 式 ) 

作用 :以 上 一 次 输出 的 最 后 那个 字符 为 基准 , 跳 过 若干 个 空 
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格 。 算 术 表 达 式 的 值 就 是 应 该 跳 过 的 空格 的 个 数 。 

例 7. 20 在 两 个 输出 数据 间 留 出 适当 空格 。 

10 PRINT 125;SPC(3);6789 

20 END 

RUNw 

125 6789 

在 数字 125 的 5 之 后 留 出 3 个 空格 。 即 是 说 125 和 6789 
之 间 有 3 个 空格 。 
注意 ; 
GDsPC 函数 只 能 放 在 PRINT 之 后 用 于 跳 过 若干 空格 。 
@ 算 术 表 达 式 的 值 指出 了 空格 的 个 数 , 其 值 必须 在 0 一 255 
之 间 。 
2. 将 光标 移 到 指定 的 行 上 
格式 :VTAB((《 算 术 表 达 式 )) 
作用 :将 光标 移 到 算术 表达 式 的 值 所 指定 的 行 上 。 
例 7.21 将 光标 移 到 第 3 行 上 。 
10 PRINT 125; 
20 VTAB(3) 
30 END 
RUN 
125 
输出 数值 125 以 后 ,光标 移 到 屏幕 的 第 三 行 上 。 

注意 ， 

GDVTAB 命令 只 能 将 光标 上 下 移动 而 不 能 左右 移动 。 如 果 
光标 当前 所 处 的 行 号 比 VTAB 中 给 出 的 行 号 小 ,那么 光标 向 下 
移 。 如 果 当 前 行 号 比 VTAB 中 指定 的 行 号 大 ,那么 光标 上 移 。 

@ 在 西 文 状 态 下 ,算术 表达 式 的 值 只 能 在 1 一 24 之 间 ( 屏 幕 
上 所 能 显示 字符 的 行 号 范围 ) 。 中 文 状 态 下 只 能 在 1 一 10 之 间 。 
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3. 将 光标 移动 若干 列 
格式 :HTAB(( 算 术 表 达 式 ) 
作用 :将 光标 移动 指定 的 列 数 。 数 据 从 该 列 开 始 显示 或 打 


例 7.22 将 光标 右 移 10 列 。 
10 PRINT 125; 
20 HTAB (10) 
30 PRINT 789 
40 END 
RUN 
125 789 
数值 789 从 第 10 列 开始 显示 ,这 就 是 HTAB(10) 的 作用 。 
注意 : 
外 算术 表达 式 的 值 给 出 了 左右 移动 的 列 数 。 
思 在 西 文 状 态 下 ,1 一 40 为 当前 行 ( 即 光标 所 在 的 行 ),41 一 
80 列 为 下 一 行 ; 在 中 文 状态 下 ,1 一 34 列 为 当前 行 ,35 一 68 列 为 
下 一 行 。 
图 算 术 表 达 式 的 值 只 能 在 0 一 255 之 间 。 
4. 将 光标 定位 在 指定 的 列 上 
格式 :TAB(( 算 术 表 达 式 ) 
作用 :以 当前 行 上 的 第 一 列 为 基准 ,将 光标 定位 在 指定 的 列 


例 7.23 在 指定 位 置 上 开始 打印 数据 。 
10 PRINT 125;TAB(10);6789; 
20 PRINT TAB(20);j” AAAAA2? 
30 END 
RUNw/ 
125 6789 AAAAA 
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注意 : 

@@O 光 标 只 能 向 右 移 而 不 能 回 退 。 即 是 说 ,如 果 先 用 了 TAB 
(20) ,就 不 能 再 在 同一 行 上 用 TAB(15) 。 

CITAB 只 能 在 PRINT 中 使 用 。 

@@ 算 术 表 达 式 的 值 只 能 在 0 一 255 之 间 。 

5. 求 光 标 所 处 的 列 位 置 

格式 :POS(X) 

作用 :返回 光标 所 在 的 列 号 。 如 : 

? POS(C5)u/ 

3 (表示 光标 现在 正 处 于 第 3 列 上 ) 

注意 :这 里 的 X 是 无 所 谓 的 ,实际 上 不 起 任何 控制 作用 。 因 
而 该 函数 可 以 写成 PoS(0) 。 写 其 它 值 效果 也 一 样 。 


7.4. 2 打印 格式 的 控制 


在 前 面 介 绍 的 格式 函数 中 ,用 得 最 多 的 是 TAB 函数 。 它 可 
以 使 我 们 方便 地 把 需要 打印 的 字符 安排 在 适当 的 列 位 置 上 。 我 
们 用 几 个 例子 来 说 明 如 何 使 用 TAB 函数 。 

例 7.24 打印 如 图 7. 1 所 示 的 图 形 。 

16 FORI=1T08 册 

28 FOR J=17T0I 
38 PRINT ThB( 15 + J)2"p"7 hah 
48 NEXT J SR 
58 
69 
7e 


PRINT AAARRR 
NEXT I ARRRARAR 
END RARRARARR 
RARARRRRR 
]RUN 图 7.1 


运行 结果 如 图 7. 1 所 示 。 


例 7.25 打印 如 图 7.2 所 示 图 形 。 

19 FORI=-17T08 

29 FOR J- 1T019 AAARAAARAR 

38 PRINT TARB( 5 + TI + J)5"h"3 hhhAARRARR 

48 NEXT 了 J ARARARAARR 

58 PRINT ARRRRRARRN 

68 NEXT I ARARRRRARR 

ED ARRRRARRRR 
RARRRARARRR 

请 RARARAARRRAR 

图 7.2 


运行 结果 如 图 7. 2 所 示 。 

上 面 几 个 例子 中 用 到 了 TAB 函数 ,其 作用 均 是 控制 字符 打 
印 的 位 置 。 要 使 字符 打印 在 所 希望 的 列 位 置 上 ,关键 是 设法 使 
TAB((《 算 术 表达 式 )) 中 算术 表达 式 的 值 能 够 恰到好处 。 只 要 找 
出 了 打印 字符 的 排列 规律 ,算术 表达 式 就 不 难 构造 出 来 了 。 


7.5 自 定义 函数 


以 上 介绍 的 这 些 函 数 是 由 系统 提供 给 用 户 直接 使 用 的 , 通 
常 称 为 标准 函数 。 这 些 函 数 功能 专 一 ,调用 人 简便。 为 使 用 户 能 够 
象 使 用 标准 函数 那样 方便 ,BASIC 又 提供 了 用 户 定 义 自己 所 需 
函数 的 能 力 , 这 就 是 所 谓 的 自 定义 函数 。 

格式 ;DEF FN( 自 定义 函数 名 (( 形 式 参 数 )) 

一 (算术 表达 式 ， 
作用 :人 允许 用 户 定义 自己 所 需 的 函数 。 
。165 。 


其 中 :DEF FN 是 自 定义 函数 的 标志 。 自 定义 函数 名 的 构成 
法 同 变量 名 相同 形式 参数 是 一 个 实 型 算术 变量 ,算术 表达 式 是 
需要 计算 的 式 子 。 

我 们 用 例子 来 说 明 如 何 定 义 和 使 用 自 定义 函数 。 

例 7.26 求 下 式 的 值 。 


w- 呈 > 十 2 VT 二 下 HI 于 > ES 


其 中 :a=5,b 一 8,h 一 2 


我 们 用 自 定 义 函 数 来 解决 该 问题 。 


49 DEF FN F(X》>= SQR (1+XsX) 
28h=m5:B= 8:'H=(B-RhR)y/2 


38NW”(B-R)/qw(FNFR)]/2+2 FN F(R + H) + FN 
FIR+2H) /2)》 


48 PRINT “= 
5@6 END 


]RUN 
w=14.88e1888 


说 明 , 

10 句 定义 了 一 个 自 定义 函数 F(X), 它 用 于 计算 F(X) 王 
V1 十 X: 式 子 的 值 。 

30 句 中 调用 了 10 句 中 定义 的 函数 F(X) 。 函 数 F(X) 如 同 
标准 函数 的 使 用 一 样 方便 。 

使 用 自 定义 函数 时 必须 注意 ， 

全 自 定 义 函 数 必须 是 数值 型 函数 ,不 允许 是 字符 串 型 。 

@@ 自 定义 函数 必须 先 定 义 后 使 用 。 
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图 自 定义 函数 中 至 多 只 能 有 一 个 形式 参数 ,该 形式 参数 在 
算术 表达 式 中 可 以 出 现 多 次 ,也 可 以 一 次 都 不 出 现 。 
@@ 同 一 程序 中 可 以 对 同一 自 定义 函数 进行 重新 定义 。 
例 7.27 对 自 定义 函数 的 重新 定义 。 
49 DEF FNF(X》= SOR (1+X*X)》 
29 WL =- FN F(5》 + FN F(8) 
39 DEF FN FIY》=《〈《 LOG (Y)，+ EXP (Y)》 ^2 
49 WwW2 = FN F(3》 
58 PRINT “ 则 1=”3 由 1” “3 W2=… 和 2 
68 “END 


]RUN 
Ut=t3.1612773  UW2=448.768179 
在 上 述 程序 中 ,第 10 句 定义 了 了 自 定 义 函 数 F(X), 但 在 第 
30 句 中 又 对 自 定义 函数 进行 了 重新 定义 ,这 是 允许 的 。 
加 在 调用 自 定 义 函 数 时 ,必须 写成 FEN( 变 量 名 )(( 实 在 参 
数 )) 的 形式 .如 上 例 中 的 EN F(5),FNP(0) 等 。 自 定义 函 数 是 一 
种 算术 表达 式 , 因 而 ,凡是 算术 表达 式 能 够 出 现 的 地 方 , 自 定义 
函数 均 可 出 现 。 


问题 与 思考 
1. 自 定义 函数 与 标准 函数 有 何 区 别 ? 
习题 七 


1. 用 自 定 义 函 数 编写 程序 。 
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1 十 sina 十 sin2a 
1 十 cosa 


| /1 十 sinB 十 sin2 1 | 
1 十 cosB 1 十 cosY 
其 中 :oa 一 30” 8 一 38"” Y 一 58? 
2. 编写 打印 九 九 表 的 程序 。 排 列 形 式 为 : 
1#x1 一 1 
2x*1 一 2 2x*2 一 4 
3x 上 1 一 3 3x*2 王 6 3x*3 一 9 
4x*1 一 4 4x*2 一 8 4x*3 一 12 4x*4 一 16 
5x1 一 5 5x*2 一 10 5x*3 一 15 5x4 一 20 5x5 一 25 
3. 编写 打印 下 列 学 生成 绩 统 计 表 的 程序 。 
学 生成 绩 统计 表 


国 国 国 园 国 四 四 于 区 


M 一 
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第 八 章 ， 子 程序 


重复 执行 某 段 程序 ,在 大 多 数 情况 下 利用 循环 语句 来 实现 
是 方便 的 。 但 在 某 些 情况 下 用 子 程序 技术 却 更 为 简便 。 


8. 1 转子 语句 和 返回 语句 


在 实际 的 程序 设计 中 ,我 们 经 常 都 会 磁 到 这 样 的 问题 :一 个 
大 型 问题 中 包含 了 若干 相对 独立 的 小 问题 .对 于 这 种 情况 ,程序 
设计 的 一 般 经 验 是 将 大 问题 用 一 个 总 控 程 序 来 实现 , 称 为 主 程 
序 。 每 一 个 相对 独立 的 小 问题 各 自 单独 对 应 一 个 程序 , 称 为 子 程 
序 . 当 主 程序 中 需要 解决 某 个 小 问题 时 ,就 调用 它 所 对 应 的 子 程 
序 。 通 常 , 主 程序 向 子 程序 提供 数据 , 子 程序 向 主 程序 返回 运算 
结果 。 


8.1.1 语句 格式 及 其 作用 


格式 1:GOSUB ( 行 号 》 

作用 :无 条 作 转 向 ( 行 号 ?所 代表 的 子 程序 去 执行 , 当 遇 到 子 
程序 中 的 返回 语句 时 再 把 控制 转 到 该 转子 语句 的 后 继 语句 。 

其 中 :GOSUB 是 转子 语句 的 标志 。 行 号 是 子 程序 的 入 口语 
句 行 号 。 

格式 2:ON (n》 GOSUB ( 行 号 1)[,( 行 号 2》…] 

作用 :根据 n 的 值 转 到 相应 行 号 所 代表 的 子 程序 去 执行 。 

其 中 :ON n 是 转子 条 件 ,n 是 一 个 算术 表达 式 且 其 值 是 整 
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数 (0 和 nn 委 255) 。 如 果 n 为 实数 ,机 器 将 自动 转换 为 整数 。 如 果 
n 一 0 或 n 大 于 子 程序 的 最 大 行 号 ,那么 就 执行 转子 语句 的 后 继 
语句 。n 的 值 应 该 同 指出 的 子 程序 入 口语 名 行 号 的 顺序 号 相对 
应 。n 王 1, 转 到 行 号 1,n 一 2, 转 到 行 号 2, 其 余 类 推 。 

格式 :RETURN 

作用 :从 子 程序 返回 到 相应 转子 语句 的 后 继 语 句 去 执行 。 

RETURN 这 几 个 字母 是 返回 语句 的 标志 。 它 表示 依次 融入 
RET.U RN 这 几 个 字母 ,而 不 是 代表 回 车 键 。 一 个 子 程序 中 
至 少 有 一 个 返回 语句 。 

如 何 利 用 转子 语句 和 返回 语句 来 编制 程序 呢 ? 我 们 看 下 面 


的 例子 。 
则 1 用 主 程序 和 子 程序 的 形式 来 编写 程序 。 
人 paCVIFE 二 2 IT 


4 1 十 \a 十 hb) 二 
2 
/TI 十 (a 十 2h)5 一 “XI 十 (a 十 2h): 


2 
其 中 :a 一 5,b 一 8,h 一 二 a, 乔 上 武市 :SHE ws 玉 
式 的 式 子 出 现 了 三 次 ,我 们 就 把 该 式 作为 子 程序 。 


写 出 主 程序 如 下 
19R=5:B=8:H=(B-h) /2 


206 X = 日 
39 60SUB 1966 
qd49 F1 = 
59X=Rhr+HH 
69 .6G0SUB 1069 


7@ F2 = F 
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) 


89X=nht+2xkH 

98 ”60SUB 1999 

168@ F3 = F 
lleMW=-(B-8)V/qy(FI+q*F2+F3) 

128 PRINT “ 岂 =” 吉 

138 ”END 

再 根据 要 求 写 出 子 程序 : 

1688 S = X 水 X 

lol19F =(SOR (1+S)-(I+S)^~(I/3)) /2 
1928 RETURN 


JRUN 

u=6.9162189 

说 明 : 

10 一 130 句 是 主 程序 段 。 它 的 作用 是 向 子 程序 提供 数据 , 保 
存 子 程序 中 返回 的 运算 结果 。 

20,50,80 句 均 是 向 子 程序 提供 数据 。 

30, 60,90 句 均 是 调用 子 程序 。 子 程序 入 口语 名 的 行 号 是 
1000 。 

40,70,100 句 是 保存 子 程序 中 返回 的 计算 结果 。 

110 句 是 利用 保存 的 结果 计算 W 的 值 。 

130 句 是 主 程序 的 结束 标志 。 在 带 有 子 程序 的 程序 设计 中 ， 
主 程序 一 定 要 有 END 语句 (命令 )。 

1000 一 1020 句 是 子 程序 。 显然 ,这 里 的 子 程序 相当 简单 。 子 
程序 中 至 少 有 一 个 RETURN 语句 。 

主 程序 和 子 程序 的 执行 情况 如 图 8. 1 所 示 。 
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主 程序 


X 一 A 十 2* H 
GOSUB 1000 
100 F3 一 F 


END 
箭头 标示 控制 执行 流向 
图 8.1 主 - 子 程序 执行 流程 示意 图 

20 句 向 子 程序 中 的 变量 X 提供 数据 ,30 句 转 到 行 号 为 
1000 的 子 程序 入 口语 句 去 执行 , 当 执行 到 子 程序 的 RETURN 语 
句 时 ,控制 又 返回 到 主 程序 中 相应 转子 语句 (30 句 ) 的 后 继 语 名 
《40 句 ) 去 执行 。 第 40 句 把 子 程序 中 计算 的 结果 E 保存 到 中 间 
变量 Fl 中 。 第 50 句 向 X 提供 数据 A 十 HE。 第 60 句 又 转 到 子 程 
序 去 执行 。 重 复 以 上 过 程 , 直 到 调用 完毕 。 

通过 分 析 以 上 主 - 子 程序 的 执行 情况 ,我 们 可 以 得 出 主 程序 
和 子 程序 之 间 调 用 的 一 般 方式 : 主 程序 向 子 程序 提供 数据 一 一 
转向 子 程序 一 一 执行 子 程序 一 一 返回 主 程序 一 一 子 程序 向 主 程 
序 提 交 运 行 结果 一 一 再 执行 主 程序 。 

例 8.2 求 ax? 十 bx 十 c 一 0 的 根 。 其 中 ab,c 可 以 取 不 同 的 
几 组 数据 。 为 便于 比较 ,请 将 方程 的 根 列 成 表格 形式 ,如 下 所 
不 : 


。172。 


备注 项 用 于 说 明 方 程 得 到 的 是 实 根 还 是 虚 根 (如 果 是 虚 根 ， 
那么 表 中 Xi 是 实 部 ,Xs* 代表 虚 部 ) 。 

我 们 把 提供 数据 (a,b,e 的 值 ) 作 为 主 程序 ,把 求解 方程 的 
根 作 为 子 程序 1( 入 口 是 1000) 。 把 格式 打印 作为 子 程序 2( 入 口 
是 5000) 。 请 看 下 面 的 程序 ， 


19 
15 


PRINT ”“ 0 有 
PRINT “1” TARB( 3)5R"5 TARB( 6)5"B" TARB( 9)57"0C"3 
PRINT ThRB( 14)5“"X1" 5 ThRB( 22)5"X2”" ThRB( 29)) 
“备注 "5 TR B( 36)541” 

PRTNR 人 二 人 
FOR Iz= 17T05 

RERAD RAR, BC 

6G0SUB 10096 

G0SUB 5009 

NEXT 工 

PRINT “程序 结束 " 

DRTR 3,4,5,8，209, 196, 17，19，6,，24,，56,43， 13,，21,8 


,109 “END 

10980 D = B 水 B - 9 站 蚊 丫 C 

11006 IF D ”6 THEN 17696 

12606 IF D = 9 THEN 2109 

1360 XMl = -8B8/ (2* 月 ) 

1365 Xl1 = INT (XM1 * 100860) / 19069 
1469 X2 = SOR(- D)/ (2* 交 Rh) 
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1495 X2 = INT (X2 * 16889) / 1968698 

1568 6G$ =“ 巷 虚 根 " 

1668 RETURN 

1768 X1 = (-B+ SOR (D))/ (2* Rh) 

1765 _ X1 = INT (MX1 * 10989〉 / 10889 

1868 x2 =〈( -B- SQR (D))/ (2*h) 

1865 X2. = INT (X2 * 19968) / 16866 

1986 6$ = 一 “不 等 实 根 ” 

2888 ，RETURN 

2189 Xi = -D / (2*h) 

2165 X1 = INT (X1 * 19986) / 19689 

2288 X2 = X1 

2386 6Gs =“ 相 等 实 根 " 

2488 ”RETURN 

568@ PRINT “!…: TRB( 3)5R5 TARB( 5)5B; TRB( 9)5C5 

5168 PRINT TAB( 12)5X15 TRB( 29)5X2) TRB( 28)56$: 
ThRB( 36)》 1" 


IIRBC Xi X2 备注 ! 


13 4 5 -.6667 1.1655 共 罗 虑 根 ! 


18 28 19 -.691 -1.8991 不 等 实 根 ! 


1 17 19 6 -.5589 .2916 ” 共 罗 虚 根 ! 


1 2q 56 43 -1.1667 .6561 ” 共 罗 虑 根 ! 


143218 -.6154 -1 不 等 实 根 ! 
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10 一 100 句 是 主 程序 ,主要 用 于 提供 aybye 的 值 。 10 一 25 句 
用 于 打印 表格 的 栏目 。 

1000 一 2400 句 是 子 程序 1, 主要 用 于 求解 方程 的 根 。 由 于 
我 们 需要 把 方程 的 系数 和 根 用 表格 的 形式 列 出 ,因而 对 Xi,Xs 
的 值 我 们 仅 保留 4 位 小 数 。 采 取 的 办 法 就 是 将 Xi,Xs 扩大 
10000 倍 取 整 ,然后 再 缩小 10000。 这 是 由 子 程序 1 中 的 1305， 
1405,1705,1805 和 2105 等 语句 来 实现 的 。 当然 ,我 们 也 可 以 把 
对 Xi,Xs 保留 四 位 小 数 的 操作 放 到 子 程序 2 中 去 统一 处 理 , 这 
样子 程序 1 可 以 更 加 精炼 (请 读者 自己 改进 ) 。 子 程序 1 中 用 了 
三 个 RETURN 语句 ,这 是 允许 的 。 

5000 一 5300 句 是 子 程序 2, 主要 用 于 打印 数据 和 表格 的 横 
线 。 为 了 简单 , 横 线 可 以 用 虚线 .为 使 表格 美观 可 以 使 用 制 表 符 。 
方法 是 蔽 臣 引 键 进 入 拼音 方式 后 再 敲 N( 斜 线 ) ,屏幕 显示 出 制 表 
符 , 这 时 可 以 象 汉 字 那 样 取 而 用 之 。 


8. 1. 2 ”编写 和 调用 子 程 序 时 注意 


1. 主 程序 和 子 程序 的 语句 行 号 不 能 交叉 。 主 程序 必须 用 
END 作为 结束 标志 , 子 程序 必须 有 RETURN 返回 主 程序 。 人 参见 
图 8. 2 和 图 8. 3。 

主 程序 子 程序 


图 8. 2 正确 的 语句 行 号 
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在 图 8. 3 所 示 的 主 程序 和 子 程序 中 , 主 程序 的 语句 编号 
(200) 和 子 程序 的 语句 行 号 (200) 相 交 了 ,这 是 不 行 的 。 
主 程序 子 程序 


100  … 


汪 200 .…。 


呈现 1000 RETURN 


180 GOSUB 200 


图 8.3 不 正确 的 语句 行 号 

2. 主 程序 要 为 子 程序 提供 适当 的 数据 。 子 程序 运算 的 结果 
可 以 返回 给 主 程序 。 

3. 子 程序 中 至 少 应 有 一 个 返回 语 名 RETURN。 执行 子 程序 
遇 到 RETURN 时 就 返回 到 调用 语句 的 后 继 语 句 去 执行 。 如 果子 
程序 中 没有 返回 语句 , 子 程序 执行 结束 后 就 无 法 回 到 主 程序 中 
相应 的 后 继 语 句 。 

4. 调用 子 程序 只 能 用 转子 语句 GOSUB , 而 不 能 用 GOTO 
或 正 一 THEN 语句 。 因 为 一 般 调用 子 程序 的 目的 是 希望 执行 完 
子 程序 以 后 再 返回 到 主 程序 ,只 有 GOSUB 配合 RETURN 才能 
达到 这 个 目的 。 

5. 子 程序 可 以 肉 套 调用 。 即 一 个 子 程序 中 又 可 以 调用 另外 
的 子 程序 。 这样 一 层 一 层 嵌 套 调 用 下 去 。 中 华 学 习 机 CEC- 工 最 
多 允许 舱 套 25 层 。 

6. 主 程序 和 子 程序 除了 最 外 层 的 程序 是 地 地 道道 的 主 程 
序 以 外 ,其 余 嵌 套 层 的 主 程序 和 子 程序 均 是 相对 的 。 即 是 说 , 某 
一 个 主 程序 可 以 是 另 一 个 程序 的 子 程序 。 多 重子 程序 的 艇 套 和 
执行 情况 如 图 8. 4 所 示 。 
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当然 , 子 程序 1 除了 调用 子 程序 2 以 外 ,还 可 以 调用 其 它 子 
程序 。 但 一 般 不 得 递归 调用 。 所 谓 递归 调用 是 指 这 种 情况 : 主 程 
序 调用 子 程序 1, 子 程序 1 调用 子 程序 2, 子 程序 2 又 调用 子 程 
序 3, 而 子 程序 3 又 反 过 来 调用 子 程序 1 或 主 程序 ,或 者 是 调用 
自身 。 如 图 8. 5 所 示 。 


子 程序 2 


图 8.5 递归 调用 示意 图 
只 要 不 造成 递归 调用 , 子 程序 的 调用 还 是 比较 自由 的 。 任 何 
子 程序 都 不 能 调用 最 外 层 的 主 程序 。 我 们 来 看 一 个 多 重 调用 的 
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例子 。 

例 8. 3 子 程序 的 多 重 调用 。 仍 然 用 求 一 元 二 次 方程 根 为 
例 ( 若 为 虚 根 ,那么 X: 代表 实 部 ,Xs* 代表 虚 部 ) 。 

我 们 把 打印 表 头 和 栏目 作为 子 程序 1( 入 口 是 1000) ,求解 
方程 的 根 作为 子 程序 2( 入 口 是 -2000) ,打印 表格 作为 子 程序 3 
(入 口 是 3000) 。 提 供 数 据 的 部 分 作为 主 程序 。 


196 ”60SUB 1666 

29 FOR I= 11T05 

39 RERD Rh 8,C 

48 “GO0SUB 269698 

586 NEXT I 

66 “PRINT “程序 结束 " 

79 DATR 3,4,5,8,，29, 19, 17,19,6,，24,56,43，13,21,8 

896 END 

1868 ”PRINT ThRB( 19)2 "求解 方程 根 一 览 表 ” 

19895 《PRINT “一 -一 一 一 -一 一 -一 一 -一 

1916 ”PRINT “1 TARB( 356 TARB( 6)2 ”BTRB( 9)520" 
1915 PRINT TAB( 19)i7X1”5 TAB( 22)5X2"1 TAB 29)) "备注 
TAB( 36)8 1” 

1926 “PRINT “-------- 

1925 RETURN 

20689 D = BrB -qdq 冰 诊 中 [C 

2995 IF D >》 6 THEN 2035 

2616 IF D = 9 THEN 2955 

2015 Xl = - BV/V (2*) 

29296 X2 = SGOR ( -D)/ (2*h) 
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2625 G$ =-“ 共 斩 虚 根 " 

2628 ”GO0SUB 3969 

2938 RETURN 

28635 X1 = ( -B+ SQR (D)》/ (2*h) 
2648 X2 = ( -B - SQR (D))/ (2 水 及) 

2645 6G$ =“ 不 等 实 根 " 

2948 ”6G0SUB 3669 

2959 RETURN 

2655 XI 。 - B / (2 yy Rh) 

29658 X2 = X1 

2965 6$ <““ 相 同 实 根 " 

2668 ”60SUB 3699 

2979 “RETURN 

3668 X1 =- INT (X1 + 18988) / 19696 

3995 X2 = INT (X2 + 19969) / 18989 

38196 ”PRINT “1"， TARB( 3)58! TARB( 6):B! TARB( 9)105 
3815 ”PRINT TARB( 12)5X1 TAB( 29))X25 TAB( 28)16Gs$1 ThRB( 35》 


3628 PRINT 
3825 RETURN 


运行 结果 省 略 了 。 程 序 的 执行 情况 如 图 8. 6 所 示 。 
ON (n》 GOSUB 〈 行 号 》… 这 个 形式 的 转子 语句 用 法 类 似 
ON (n) GOTO (〈 行 号 》… 条 件 转 语句 。 关 键 仍 然 是 如 何 构造 n。 


在 介绍 ON (n》 GOTO 〈 行 号 》 时 已 经 有 一 些 例 子 , 请 读者 自己 
改 用 ON (ny GOSUB 后 上 机 一 试 。 
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图 8.6 主子 程序 调用 示意 图 


8. 2 ” 子 程 序 应 用 实例 


如 果 我 们 乐意 的 话 , 任 何 问题 都 可 以 用 主 一 子 程序 的 形式 
来 编写 。 


例 8. 4 求 W= -DTAT 的 值 ,其 中 A,B,H 为 已 知 


数 。 19 INPUT Rh, BiN 
2ek -AN 
38 ”60SUB 1669 
ae Wi1 = 上 
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506 K = 及 

686 6G0SUB 1969 

79 UW2 = 

89ek 一 Ah-B 

96 6G0SUB 1066 

196 3 = 首 

1186 由 = 划 1 / 《2 * U3) 
128 PRINT “ 划 =”) 岂 

136 ”END 

1000 HH = 1 

19865 FOR I<=K TO1STEP - 1 
1918 = M 闻 工 

1915 NEXT I 

10260 RETURN 


]RUN 


918,5,15 
W=36963 


在 上 机 试用 该 程序 时 ,数据 不 能 太 大 ,和 否则 会 发 生 溢出 。 

例 8.5 求 多 边 形 的 面积 。 

计算 多 边 形 的 面积 问题 可 以 转换 成 求 各 个 三 角形 的 面积 之 
和 的 问题 。 

求 三 角形 面积 的 公式 为 : 


S 一 ~/P(P 一 a)(P 一 b)(P 一 c)， 
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了 志 P 一 “2 十 人 ， 
其 中 a,b,c 为 三 

必 角形 的 三 边 长 

人 度 。 
程序 如 下 : 
20 
10 几 = 9 
图 8.7 例 8.5 图 28 FORI=1T703 


38 RERD h,B,C 

48 GO0SUB 1966 

5@u=u+s 

68 NEXT I 

78 PRINT "多边形 的 面积 =" 吉 

898 DRTR 26,38,49,48,39,35,35,25v 15 

98 END 

198686 P = (+B+Cc /2 

1918 S= SQR (Py(P-R)*(P-B)*(P-C)) 
19296 ”RETURN 


]RUN 
多 边 形 的 面积 =<961. 182579 


问题 与 思考 


1. 为 什么 不 能 用 GOTO 转向 子 程序 ? 如 果 一 定 要 用 GoTO 
转 到 子 程序 ,那么 可 能 会 出 现 什么 情况 ? 
2. 为 什么 子 程序 中 必须 有 至 少 一 个 RETURN 语句 ? 在 子 
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程序 中 出 现 RETURN 的 地 方 用 GOTO 转 回 主 程序 可 以 吗 ? 哪 些 
情况 下 可 以 ? 哪 种 情况 下 不 可 以 ? 


习题 八 


1. 指出 下 列 程序 的 运行 结果 。 
10 PRINT“ 主 程序 ” 
20 PRINT“AAA12 

30 GOSUB 1000 

40 PRINT“AAA2? 

50 GOSUB 2000 

60 GOSUB 3000 

70 PRINT“BBB1” 

80 END 

1000 ”PRINT“ 子 程序 1” 
1100 PRINT“CCC1?” 
1200 GOSUB 2000 
1300 RETURN 

2000 ”PRINT“ 子 程序 2” 
2100 PRINT “CCC22” 
2200 RETURN 

3000 PRINT“ 子 程序 3” 
3100 PRINT“DDD1” 
3200 GOTO 1000 

3300 RETURN 

RUNAA 

2. 指出 程序 的 书写 错误 。 


@ 10 PRINT“ 主 程序 ” 
20 GOSUB 1000 
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30 
40 
1000 
1100 
1200 
1300 
2000 
2100 
2200 
2300 
@ 10 
20 
30 
40 
1000 
1100 
1200 
1300 
2000 
2100 
2200 
2300 


PRINT “AAA?” 
END 
PRINT“BBB>” 
GOSUB 2000 
PRINT“BBB?” 
RETURN 
PRINT “CCC>” 
GOSUB 1000 
PRINT“DDD>” 
RETURN 
PRINT“ 主 程序 ” 
GOSUB 1000 
PRINT “AAA?” 
END 

PRINT “BBB?” 
GOSUB 2000 
PRINT“BBB” 
RETURN 
PRINT“CCC>” 
GOSUB 10 
PRINT “DDD>” 
RETURN 


3. 人 


dVw= IT 环 十 下 (十 交 十 记 下 有 二 1 


1 一 a 一 C 


) 


1 一 (x 十 y) 
1 一 (x 十 y 刀 十 (x 十 y) 


四 设 X9?y 


_fCx) 十 {CY2) 
f(x 十 3) 十 ys 


。184 。 


为 已 知 数值 , 求 
f(x 十 y)， ,fCa) 一 u 一 息 十 节 


4. 在 发 放 工资 时 ,财会 人 员 不 但 要 计算 出 本 部 门 的 所 有 职 
工 的 总 工资 ,而 且 还 必须 把 每 个 人 的 工资 进行 分 解 ,以便 知 道 需 
要 多 少 张 拾 元 卷 、 伍 元 卷 .过 元 卷 . 伍 角 票 . 吉 角 票 . 过 角 票 、 伍 分 
票 . 直 分 票 和 过 分 票 。 请 编写 一 个 程序 ,接收 每 个 人 的 工资 额 后 
自动 进行 分 解 ,并 累计 本 部 门 发 放 工资 时 各 种 面额 的 钞票 各 自 
需要 多 少 张 。 要 求 要 用 到 子 程序 。 
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第 九 章 ”文件 管理 系统 


在 实际 应 用 中 ,我 们 常常 希望 将 一 些 数据 ,报表 或 程序 保存 
起 来 ,以 备 随时 使 用 。 要 保存 这 些 数据 ,报表 或 程序 ,就 要 用 到 中 
华 学 习 机 CEC- I 的 主要 外 部 设备 一 一 磁盘 驱动 器 和 软磁盘 ( 当 
然 也 可 以 用 录音 机 和 磁带 )。 除 了 这 些 硬 设备 以 外 ,还 要 用 到 中 
华 学 习 机 上 的 文件 管理 系统 。 软 盘 驱动 器 的 用 法 是 简单 和 直观 
的 ,前 面 已 经 作 了 介绍 本 章 主要 介绍 如 何 使 用 文件 管理 系统 在 
软盘 上 建立 用 户 的 程序 文件 和 数据 文件 。 


9.1 文件 的 基本 概念 


中 华 学 习 机 CEC- I 把 用 来 存放 数据 信息 的 文件 都 称 为 文 
本 文件 ,因为 文件 是 由 文本 字符 构成 的 。 这 些 文本 字符 可 以 是 : 
运算 的 数据 ,计算 的 结果 , 待 输出 的 报表 以 及 BASIC 程序 。 文 本 
文件 是 通过 在 BASIC 程序 中 调用 操作 系统 的 命令 来 建立 和 检 
索 的 。 它 可 以 由 一 个 程序 来 建立 ,用 另 一 个 程序 来 调用 。 

现在 先 介绍 几 个 与 文件 有 关 的 概念 。 


9.1.1 数据 .字段 .记录 ,文件 


1. 数据 
在 介绍 BASIC 语句 中 已 经 涉及 到 了 数据 这 个 概念 。 但 那里 
对 数据 的 说 法 是 比较 单纯 的 ,其 主要 含义 是 指 通常 用 到 的 数值 
常数 或 字符 串 常 数 。 在 文件 管理 中 ,我 们 把 数据 一 词 的 含义 拓 广 
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了 , 它 不 仅 可 以 指数 值 常 数 、 字 符 串 变量 的 值 , 也 可 以 指 一 个 报 
表 , 一 段 程序 .总 之 ,我 们 要 用 到 的 任何 符号 均 可 以 看 成 是 数据 。 
在 文件 管理 中 ,数据 可 以 用 来 表示 我 们 所 关心 的 任何 信息 .数据 
和 信息 是 两 个 既 有 联系 又 有 区 别 的 概念 。 信 息 有 一 定 的 含义 和 
意思 。 在 计算 机 中 ,信息 总 是 以 数据 的 形式 表现 出 来 。 数据 不 一 
定 有 什么 意思 , 它 是 载荷 信息 的 一 些 符号 。 为 了 简单 ,有 时 不 加 
区 别 地 使 用 数据 和 信息 这 两 个 术语 .总 起 来 说 ,凡是 计算 机 要 处 
理 的 东西 ,我们 都 可 以 认为 是 数据 .数据 是 一 个 含义 非常 广泛 的 
术语 。 

2. 字段 

我 们 先 来 看 表 9. 1 。 


在 表格 中 列 出 了 姓名 、 学 号 ,性别 .年龄 和 成 绩 共 5 个 栏目 。 
每 一 个 栏目 在 文件 管理 中 就 称 为 一 个 字段 (Field) 。 每 一 个 字段 
下 面 都 对 应 了 一 些 数据 如 姓名 字段 下 面 有 张 山 、. 李 丽 丽 和 王 大 
力 三 个 数据 。 这 三 个 数据 中 的 每 一 个 数据 都 叫 姓名 字段 的 值 ( 实 
际 上 就 是 表格 的 每 一 列 ) 。 一 个 表格 有 多 少 栏目 ( 列 ) ,就 有 多 少 
不 同 的 字段 。 每 一 个 字段 可 以 取 若 干 个 值 . 总 之 ,我 们 可 以 把 表 
格 中 的 栏目 同 字段 等 同 起 来 ,或 者 干脆 就 称 为 栏目 。 

3. 记录 

上 面 的 表格 共有 5 个 字段 ,这 5 个 字段 合 起 来 就 称 为 一 个 
记录 .若干 个 字段 组 成 一 个 记录 .。 张 山 631 男 15 95 这 是 
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一 个 记录 。 而 李 丽 丽 632 女 13 88.5 则 是 另 一 个 记录 。 实 
际 上 ,表格 中 的 一 个 横行 就 表示 一 个 记录 。 表 格 中 有 几 个 横行 就 
表示 有 几 个 记录 。 一 个 记录 应 当 包含 几 个 字段 ,这 是 由 实际 应 用 
来 确定 的 ,当然 可 以 很 多 ,也 可 以 比较 少 。 但 中 华 学 习 机 CEC- 1 
要 求 一 个 横行 (一 个 记录 ) 的 所 有 字符 加 起 来 不 能 超过 256 个 。 
如 果 一 个 实际 问题 中 一 个 记录 可 能 超过 256 个 字符 ,就 只 好 分 
成 多 个 表格 来 处 理 了 。 

从 上 面 给 出 的 表格 我 们 可 以 看 到 :字段 是 按 列 来 划分 的 ,而 
记录 则 是 按 行 来 划分 的 。 所 以 ,以 后 我 们 又 可 以 把 字段 与 列 、. 记 
录 与 行 等 同 使 用 。 

4. 文件 

若干 个 记录 组 成 一 个 文件 。 前 面 的 学 生 情 况 统计 表 , 它 有 三 
个 记录 ,可 以 组 成 一 个 学 生 文件 一 个 文件 可 以 同 整个 表格 联系 
起 来 .一 个 文件 可 以 代表 一 个 表格 ,一 个 表格 也 可 以 表示 一 个 文 
件 。 表 格 和 文件 可 以 等 同 使 用 。 在 用 文件 管理 系统 来 描述 文件 
(表格 ) 时 ,首先 必须 给 文件 取 一 个 名 字 , 称 为 文件 名 。 文 件 名 是 
用 字母 开头 的 字符 序列 (不 能 含有 逗号 ) ,最 多 可 以 有 30 个 字 
符 , 也 可 以 直接 用 汉字 作文 件 名 。 但 必须 注意 ,一 个 汉字 相当 于 
两 个 英文 字符 的 长 度 。 因 而 汉字 文件 名 最 多 包含 15 个 汉字 。 

如 果 一 个 文件 中 有 多 个 记录 ,那么 ,为 了 使 记录 有 一 个 先后 
次 序 , 因 而 必须 给 每 个 记录 编 一 个 顺序 号 , 称 为 记录 号 。 记 录 总 
是 从 0 开始 编号 。 例 如 学 生 情 况 统计 的 记录 可 按 表 9. 2 编号 。 

如 果 还 有 其 它 记录 ,可 以 依次 编 下 去 这 种 编号 可 以 由 机 器 
自动 进行 (如 果 由 机 器 自动 进行 ,那么 就 按 输入 记录 的 先后 顺序 
依次 编号 ) 。 

顺便 介绍 一 下 记录 指针 的 概念 .所谓 记录 指针 ,就 是 为 了 能 
够 自由 的 存 取 文件 记录 而 设置 的 一 个 计数 器 , 它 能 够 指示 记录 
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在 文件 中 的 位 置 。 我 们 要 存 取 某 一 个 记录 ,首先 就 必须 使 记录 指 
针 指 向 该 记录 。 根 据 需要 ,可 以 使 指针 在 各 个 记录 位 置 上 来 回 拨 
动 。 一 个 文件 打开 以 后 ,指针 总 是 指向 文件 的 当前 记录 (通常 是 
第 一 个 记录 即 0 号 记录 ), 随 着 对 文件 的 操作 ,指针 位 置 可 以 不 
断 变化 。 


表 9. 2 ”学 生 情 况 统计 的 记录 


归纳 起 来 ,我 们 可 以 得 出 以 下 结论 : 

也 一 个 文件 由 若干 个 记录 组 成 ,文件 名 是 这 些 记录 的 总 代 
表 . 特 殊 情况 下 ,一 个 文件 也 可 以 只 有 一 个 记录 或 没有 任何 记录 
(只 有 一 个 文件 名 ) 。 

@ 一 个 记录 由 若干 个 字段 组 成 。 一 个 记录 可 以 包含 一 个 或 
多 个 字段 。 

@@ 一 个 字段 由 若干 个 字符 组 成 。 一 个 字段 中 可 以 包含 一 个 
或 多 个 字符 。 

人 同类 事物 的 数据 可 以 组 成 一 个 文件 .例如 :所 有 学 生 的 成 
绩 档 案 组 成 一 个 学 生 文件 。 所 有 职工 的 工资 情况 组 成 一 个 工资 
文件 。 所 有 商品 信息 组 成 一 个 商品 文件 。 最 好 不 要 将 不 同类 型 
的 数据 组 织 在 同一 个 文件 中 .如 学 生 的 学 习 成 线 和 库存 物资 ,这 
是 两 码 事 , 可 以 分 别 组 织 成 两 个 文件 。 


9.1.2 文件 的 种 类 


简单 地 说 ,中 华 学 习 机 上 我 们 经 常用 到 的 文件 有 三 种 “ 
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专门 用 于 保存 BASIC 程序 的 文件 , 称 为 程序 文件 。 另 两 种 是 用 
于 保存 数据 信息 的 文件 , 称 为 数据 文件 ,又 称 文本 文件 。 

1. 程序 文件 

所 谓 程 序 文件 就 是 用 BASIC 语句 或 DoS 命令 编写 的 程序 
所 组 成 的 文件 。 在 输入 .调试 .运行 BASIC 程序 (特别 是 很 长 的 
程序 ) 时 ,为 了 防止 程序 遭 到 意外 的 破坏 (如 :突然 断 电 ,机 器 故 
障 , 人 为 操作 失误 等 ) ,在 调试 .修改 和 运行 之 前 ,最 好 先 将 程序 
保存 在 软盘 上 , 当 内 存 被 破坏 时 ,再 从 软盘 上 把 程序 调 到 内 存 ， 
重新 开始 调试 .修改 和 运行 。 这 样 ,不 至 于 使 我 们 辛 辛 苦 苦 输入 
到 机 内 的 程序 毁 于 一 旦 。 为 此 就 要 用 到 程序 文件 。 

2. 顺序 文件 

顺序 文件 由 字段 组 成 ,每 个 字段 值 之 后 用 回 车 (CR) 字 符 作 
为 终结 标志 。 当 然 ,我 们 也 可 以 用 记录 值 来 组 成 顺序 文件 ,每 个 
记录 值 之 后 同样 用 回 车 字符 作为 结束 标志 (这 种 情况 相当 于 把 
整个 记录 值 作为 一 个 字段 值 ) .顺序 文件 的 数据 在 软盘 上 存放 时 
是 依次 连续 存放 的 , 即 一 个 字段 (记录 ) 接 一 个 字段 ,各 个 字段 值 
之 间 没 有 空格 (间隙 ) 。 顺 序 文件 的 这 种 顺序 存储 方式 可 以 看 成 
是 把 所 有 数据 拉 成 一 条 线 而 依次 存放 。 字 段 和 文件 的 长 度 均 不 
受 限 制 ( 当 然 要 受到 软盘 容量 的 限制 ) 。 

顺序 文件 的 特点 是 :建立 时 先 送 入 的 数据 放 在 前 面 ,后 送 入 
的 数据 排列 在 后 面 。 检 索 时 也 是 一 样 ,需要 检索 后 面 的 数据 时 ， 
必须 先 检索 前 面 的 数据 (从 第 0 个 记录 起 ) ,不管 前 面 的 数据 是 
否 需 要 均 必 须 如 此 。 例 如 :我 们 要 查找 第 100 个 数据 ,必须 先 找 
出 前 面 的 99 个 数据 。 这 如 同日 常 排队 买 东西 一 样 , 先 来 先 买 。 
这 种 处 理 方法 ,用 计算 机 的 术语 来 说 叫做 “先进 先 出 ”。 

顺序 文件 又 称 串 行文 件 , 其 优点 是 :建立 方式 比较 简单 , 节 
省 存储 空间 ,在 需要 顺序 依次 存 取 的 应 用 情况 下 比较 快速 和 方 
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便 。 最 大 的 缺点 是 检索 时 必须 论 资 排 辈 ,依次 而 行 ,从 计算 机 的 
处 理 这 点 来 说 ,比较 浪费 时 间 而 又 不 太 方便 。 

3 随机 文件 

随机 文件 又 称 直 接 文件 。 它 由 记录 组 成 ,每 个 记录 中 又 可 以 
包含 若干 字段 。 在 随机 文件 中 ,各 个 记录 的 长 度 是 固定 的 ,一 个 
记录 的 最 大 长 度 是 32767 个 字符 。 

随机 文件 的 特点 是 :建立 文件 时 记录 不 一 定 依次 连续 存放 ， 
检索 时 可 以 按 任意 顺序 检索 任何 记录 (当然 ,也 可 以 顺序 检索 ) 。 
文件 以 记录 为 单位 进行 读 写 操作 。 所 谓 文件 的 读 或 写 是 什么 意 
思 呢 ? 写 操作 是 指 把 计算 机 内 存 的 数据 传送 到 软盘 的 文件 中 (内 
存 之 外 存 ) 保 存 起 来 ,而 读 操作 则 刚好 相反 , 它 是 把 外 存 ( 软 盘 ) 
上 文件 中 保存 的 数据 传送 到 内 存 ( 外 存 之 内 存 )。 建 立 文件 时 传 
送 数据 必须 用 写 (Write) 操 作 ( 内 存 之 外 存 ), 检 索 文 件 时 传送 数 
据 必 须 用 读 (Read) 操 作 ( 外 存 内 存 )。 


9. 2 程序 文件 的 建立 和 载 入 


如 何 把 BASIC 程序 用 文件 的 形式 保存 在 软盘 上 ? 又 如 何 把 
软盘 上 的 BASIC 程序 调 入 内 存 ? 

1. 建立 BASIC 程序 文件 的 命令 

格式 :SAVE (文件 名 》 

作用 :把 内 存 中 现 有 的 BASIC 程序 用 给 定 的 文件 名 保存 在 
软盘 上 。 

2. 载 入 命令 

所 谓 载 入 就 是 把 磁盘 上 的 文件 调 入 内 存 。 

格式 : LOAD (文件 名 》 

作用 :将 先前 保存 在 磁盘 上 的 程序 文件 调 入 内 存 。SAVE 和 
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LOAD 命令 的 应 用 实例 请 参见 4.7. 2 节 。 

需要 注意 的 是 :SAVE 和 LOAD 命令 只 能 用 于 建立 和 载 入 
BASIC 程序 文件 。 顺 序 文件 、 随 机 文件 是 不 能 用 SAVE 和 LOAD 
命令 来 建立 和 载 入 的 。 

3. 删除 文件 

格式 :DELETE (文件 名 》 

作用 :删除 指定 的 磁盘 文件 。 

如 果 一 个 文件 确实 不 再 需 用 了 ,可 以 用 删除 命令 把 它 删 去 ， 
从 而 释放 出 磁盘 空间 供 其 它 文件 使 用 。 需 要 特别 强调 的 是 :一 旦 
用 该 命令 把 文件 删 去 ,该 文件 就 从 磁盘 目录 中 消失 了 ,而 且 不 能 
再 恢复 ,除非 另外 重新 建立 。 所 以 ,使 用 DELETE 命令 要 格外 说 
慎 。DELETE 命令 可 用 于 删除 磁盘 上 的 任何 文件 (包括 程序 文 
件 、 顺 序 文件 、 随 机 文件 以 及 系统 文件 ) 。 


9.3 顺序 文件 的 建立 和 检索 


9. 3.1 顺序 文件 的 建立 方式 


1. 文件 的 建立 或 打开 命令 

格式 : OPEN (文件 名 [,Ss]L,Dd]j[,Vv] 

作用 :如 果 文 件 名 在 磁盘 目录 中 还 没有 ,就 表示 新 建 一 个 顺 
序 文件 ,机 器 自动 将 文件 名 列 入 磁盘 目录 中 。 如 果 文 件 名 已 经 存 
在 , 则 表示 打开 指定 的 文件 。 

OPEN 命令 实际 上 有 两 种 可 能 的 作用 :一 是 建立 新 文件 ;二 
是 打开 一 个 旧 文 件 。 关 键 是 文件 名 在 磁盘 目录 中 是 否 存在 。 如 
果 我 们 取 的 文件 名 凑巧 和 磁盘 上 其 它 文件 同名 ,那么 仍然 是 作 
为 打开 文件 来 使 用 。 
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其 中 :文件 名 是 需要 建立 或 打开 的 文件 的 名 字 , 它 由 字母 开 
头 , 至 多 30 个 字符 组 成 ,文件 名 中 不 能 含有 逗号 字符 。 

Ss 一 一 表示 软盘 驱动 器 所 在 的 槽 口号 码 ,s 的 值 可 以 是 
1 一 7 之 间 的 整数 (但 不 能 是 3,3 留 作 汉字 系统 用 )。 中 华 学 习 机 
CEC- 上 的 s=6。 

Dd 一 一 软盘 驱动 器 在 盘 驱 接 口 卡 上 的 设备 号 。d 值 可 以 是 
1 或 者 2。 中 华 学 习 机 上 的 d=1。 

Vv 一 一 软盘 片 的 卷 号 。 一 张 软盘 有 唯一 的 卷 号 ,这 个 卷 号 
是 软盘 初始 化 时 由 INIT 命令 确定 的 。 写 上 卷 号 的 目的 是 防止 软 
盘 拿 错 。v 可 以 是 1 一 254 之 间 的 一 个 整数 。v 的 值 不 能 乱 写 ,一 
定 要 根据 初始 化 时 确定 的 卷 号 ,如 果 我 们 可 以 保证 软盘 不 会 拿 
错 ,Vv 项 完全 可 以 省 去 不 写 。 

在 实际 使 用 OPEN 命令 时 , 必须 嵌入 到 BASIC 的 PRINT 
语句 中 去 。 

例 9. 1“` 建 立 一 个 顺序 文件 ,文件 名 就 是 “学 生 ”。 

10D$ 王 CHRS$ (4) 

20 PRINT D$ ;“OPEN 学 生 ,S6,D1,V254” 


这 就 表示 创建 了 一 个 “学 生 ? 顺 序 文件 .为 了 简洁 ,上 述 语句 
也 可 以 写成 ， 

10D$=CHR$(4) 

20 PRINT D$ ;“OPEN 学 生 ” 或 者 写成 ， 

20 PRINT CHR $ (4);“OPEN 学 生 ” 

其 中 :CHR $ (4) 可 以 看 成 是 嵌入 DOS 命令 的 标志 ,凡是 涉 
及 到 文件 ,都 必须 有 CHR $ (4) 。OPEN 命令 一 定 要 用 引号 括 起 
来 并 放 在 PRINT 之 后 。 

执行 OPEN 命令 时 需要 完成 的 工作 有 : 
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@@ 判 断 文件 名 是 否 存在 .如果 文件 名 已 经 存在 则 打开 文件 ; 
如 果 文 件 名 不 存在 则 创建 一 个 新 文件 ,将 文件 名 列 入 磁盘 目录 
中 。 

@ 分 配 输入 输出 缓冲 区 。 
执行 OPEN 命令 后 ,DOS (磁盘 操作 系统 ) 给 文件 分 配 595 

个 字 节 的 文件 缓冲 区 , 供 内 外 存 作为 交换 信息 之 用 。 

图 确定 打开 文件 的 最 大 个 数 是 否 超 界 。 

程序 中 一 次 能 够 打开 文件 的 最 大 个 数 由 DOS 的 MAXFILE 
命令 来 确定 ,至 多 不 得 超过 16 个 。 如 果 系 统 没有 明确 指定 打开 
文件 的 最 大 个 数 ,那么 默认 个 数 是 3 个 。 注 意 : 

@ 在 创立 或 检索 文件 之 前 ,必须 首先 打开 文件 。 

CIOPEN 必须 藤 套 在 PRINT 之 中 。 

2. 写 文件 的 命令 

格式 :WRITE 《文件 名 》[,Bb] 

作用 :将 内 存 的 内 容 写 入 指定 文件 中 。 

其 中 :Bb 一 一 表示 从 顺序 文件 的 第 b 个 字 节 开始 写 数 据 。 
如 果 省 略 Bb 待 选项 ,那么 就 从 顺序 文件 的 第 0 个 字 节 开始 写 入 
数据 。 

执行 WRITE 命令 后 ,所 有 PRINT 语句 中 输出 的 信息 都 输 
出 到 文件 中 而 不 是 显示 在 屏幕 上 。 因 此 ,要 写 文件 的 话 , WRITE 
命令 和 PRINT 语句 一 定 要 联 用 。 

例 9.2 ”对 学 生 文件 输入 数据 。 

10D$ 王 CHR$(4) 

20 PRINT D$ ;“OPEN 学 生 ” 

30 PRINT D$ ;WRITE, 学 生 ” 

40 PRINT“ 张 山 631 男 15 95?” 
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20 句 一 一 创建 学 生 文件 ; 
30 句 一 一 写 记 录 (或 字段 ) 到 学 生 文件 中 去 。 
40 名 一 将“ 张 山 631 男 15 95? 送 到 学 生 文 件 中 作为 学 


生 文件 的 第 0 个 字段 (本 例 将 整个 记录 输入 ) 。 注 意 : 

GWRITE 命令 必须 嵌 套 在 PRINT 之 后 且 用 引号 括 起 来 。 

@WRITE 必须 同 PRINT 联 用 。 也 就 是 说 ,WRITE 命令 写 入 
文件 的 数据 是 由 PRINT 传送 的 。 没 有 PRINT ,数据 就 无 法 送 到 
文件 中 去 。 

3. 关闭 文件 命令 

格式 :CLOSE [人 文件 名 7 

作用 :关闭 指定 的 文件 。 如 果 没 有 指定 文件 名 ,就 关闭 当前 
打开 的 所 有 文件 。 

一 个 文件 操作 完毕 后 必须 及 时 关闭 。 关 闭 命令 至 少 有 两 个 
作用 :一 是 关闭 文件 后 使 操作 系统 收回 分 配 的 缓冲 区 ,用 于 其 它 
急 待 打开 的 文件 ;二 是 文件 关闭 后 能 够 防止 可 能 的 误 操 作 影 响 
到 文件 的 数据 。 

下 面 我 们 用 具体 的 例子 来 说 明 如 何 建立 一 个 顺序 文件 。 

例 9.3 用 表 9. 3 中 的 数据 建立 一 个 顺序 文件 。 假 设 顺 序 
文件 的 名 字 就 用 学生? 两 个 汉字 。 
程序 如 下 

19 0$ = CHR$S 《4》 

28 PRINT 0$; "OPEN 学生 ” 

38 PRINT D$i"MRITE 学 生 ” 

48 FOR I= 11T03 
59 RERD hs$ 

68 PRINT hy 


。195。 


78@ NEXT I 
89 PRINT D$5 "CLOSE 学 生 ” 

99 DaTR " 张 山 631 男 15 95” 
92 ”DARTR “ 李 丽 丽 632 女 13 88.5” 
94 DRTR “ 王 大 力 634 男 149 74.7” 


这 就 把 表格 中 的 数据 送 到 “学 生 ” 文 件 中 保存 起 来 了 。 请 注 
意 观 察 , 当 运行 程序 时 磁盘 驱动 器 的 指示 灯 在 不 断 的 闪 亮 ,这 就 
表明 内 存 的 数据 在 不 断 地 送 到 磁盘 上 。 如 果 你 希望 目睹 程序 的 
运行 和 数据 的 传送 情况 ,那么 在 敲 入 RUN 命令 之 前 ,请 先 敲 入 
MON C,LO 命令 .。 这 就 表示 在 执行 程序 的 同时 又 在 屏幕 上 显示 
出 程序 的 执行 过 程 。 请 自己 试 试 。( 程 序 最 好 保存 在 软盘 上 ) 。 

注意 :顺序 文件 只 是 保存 了 学 生 数 据 , 并 没有 把 例 9. 3 的 程 
序 保存 在 其 中 ,而 程序 文件 才能 用 于 保存 程序 , 千 万 不 能 混 为 一 


9. 3. 2 ”顺序 文件 的 检索 


建立 文件 的 目的 主要 是 为 了 保存 信息 ,便于 检索 。 
1. 读 入 顺序 文件 
格式 :READ (文件 名 》[,Bb]] 
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作用 :对 打开 的 文件 进行 读 入 操作 。 在 执行 该 命令 时 ,所 有 
INPUT 或 GET 语句 都 表示 从 顺序 文件 中 接收 数据 而 不 是 从 键 
盘 上 接收 数据 。 

其 中 :Bb 一 一 表示 从 顺序 文件 的 第 b 个 字 节 开始 读 入 数 
据 , 如 果 省 略 了 Bb 待 选 项 , 则 表示 从 顺序 文件 的 第 0 个 字 节 开 
始 读 入 数据 。 注 意 : 

@ 在 用 INPUT 接收 数据 时 ,一 次 只 能 接收 读 入 的 一 个 字段 
值 。 如 果 字 段 值 中 有 逗号 , 则 依次 将 各 数据 送 到 INPUT 后 的 各 
个 变量 中 。 

四 如 果 INPUT 中 各 变量 的 数据 类 型 和 顺序 文件 中 接收 的 
数据 类 型 不 相符 合 ,那么 就 给 出 “? Reenter”( 重 新 输入 ) 信 息 , 并 
继续 接收 下 一 个 数据 。 

转 如 果 顺 序 文件 的 字段 中 的 数据 多 于 INPUT 语句 中 变量 
的 个 数 , 则 给 出 信息 :? EXTRAIGNORED( 超 过 部 分 忽略 不 计 )， 
去 掉 多 余部 分 。 

@ 力 如 果 顺 序 文 件 字段 中 数据 少 于 INPUT 中 变量 的 个 数 , 屏 
幕 显示 ??, 系 统 自 动 到 下 一 个 字段 中 去 读 取 数 据 。 这 种 情况 可 能 
造成 数据 错位 。 

加 为 了 防止 数据 错位 ,检索 数据 的 格式 和 创建 文件 时 的 格 
式 应 该 完全 一 致 。 

例 9.4 从 顺序 文件 中 读 入 数据 。 

我 们 以 先前 建立 的 学 生 文件 为 例 , 程 序 如 下 : 

19 D$ = CHR$ 〈(q) 

28 PRINT D$5"0PEN 学 生 " 

38 PRINT D$i"RERD 学 生 ” 

49 FOR I= 11T03 

586 INPUT hg 
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69 PRINT hd 
786 NEXT II 

89 PRINT D$; "CLOSE 学 生 " 
98 END 


]RUN 
张 山 631 男 15 95 
李 丽 丽 632 女 13 88.5 
王 大 力 634 男 14 7q.7 


2. 添加 数据 
格式 :APPEND (文件 名 [,Ss] [,Dd] [,Vv] 
作用 :打开 顺序 文件 并 人 允许 在 文件 末尾 添加 新 的 数据 。 
其 中 :Ss,Dd,vv 和 前 面 含义 相同 。 
注意 :在 APPEND 之 后 必须 用 WRITE 命令 。 
例 9.5 在 学 生 文件 末尾 添加 两 个 新 记录 数据 。 
19 D$ = CHR$〈q) 
286 PRINT D$i“"pPPEND 学 生 " 
38 PRINT D$5"URITE 学 生 " 
48 PRINT " 李 花 635 女 14 85.5" 
56 PRINT “" 王 武 636 男 13 98.1" 
69 PRINT D$5"CEOSE 学 生 " 
7@ END 
通过 运行 以 上 程序 ,就 把 ， 
李 花 635 女 14 85.5 
王 武 636 男 13 90.1 
这 两 个 新 记录 添加 到 学 生 文 件 的 末尾 了 。 学 生 文 件 原来 只 
有 三 个 记录 ,现在 就 有 五 个 记录 了 。 
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3. 定位 记录 指针 

格式 : POSITION (文件 名 》[，,Rr] 

作用 : 将 文件 的 记录 指针 定位 到 指定 的 字段 位 置 。 

其 中 : Rr 一 表示 把 记录 指针 指向 当前 位 置 的 第 z 个 (包括 
ID 字段。 如 果 省 去 了 Rr 待 选项 ,就 表示 不 移动 指针 。 

注意 : 

@ 该 命令 必须 作用 于 一 个 已 打开 的 顺序 文件 。 

@ 该 命令 必须 用 在 WRITE 和 READ 命令 之 前 。 

例 9.6 在 学 生 文 件 中 已 经 保存 了 五 个 记录 数据 (0 一 4 
号 )。 现 在 希望 从 学 生 文件 中 读 取 第 三 四、 五 个 记录 。 可 用 下 列 
程序 实现 ( 记 住 :记录 号 从 0 开始 ) : 

19 D$ = CHRS 〈4)》 


29 


PRINT D$1 “0PEN 学 生 ” 

PRINT D$5 “POSITION 学 生 ,R2” 
PRINT D$5 “READ 学 生 "” 

INPUT h$，B$,C$ 

PRINT D$5"CLOSE 学 生 ” 

PRINT h$: PRINT B$: PRINT C$ 
END 


]RUN 
王 大 力 634 男 14 ?74.7 


李 
王 


花 635 女 14 85.5 
武 636 男 13 96.1 


第 25 句 将 指针 定位 在 第 2 号 记录 位 置 上 ( 即 R: 的 作用 )。 
第 30,40 两 句 依次 将 第 2, 第 3 和 第 4 号 记录 送 到 字符 串 
变量 A$、.B$ 和 C$ 中 。 
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9.3.3 顺序 文件 的 修改 


严格 说 来 ,顺序 文件 是 不 能 修改 的 。 但 我 们 可 以 利用 
WRITE 命令 来 重 写 记 录 。 

例 9.7 用 " 张 玲 637 女 14 93? 去 替换 学 生 文件 
中 的 第 一 个 记录 。 


19 D$ = CHR$ (9) 

29 PRINT D$5 “OPEN 学 生 ” 
38 PRINT D$i"URITE 学 生 ” 
496 8$ = " 张 玲 637 女 149 93" 
58 PRINT 6$ 

698 ”PRINT D$5 "CLOSE 学 生 ” 
78 PRINT D$5 "0PEN 学 生 ” 
88 PRINT 0$i"RERD 学 生 ” 
98 INPUT B$ 

198 PRINT B$ 

118 PRINT 0$5 "CLOSE 学 生 ” 
1286 “END 


]RUN 
张 玲 637 女 1q4 93 


通过 执行 10 一 60 句 ,就 用 “ 张 玲 637 女 14 93” 覆 盖 
原来 的 0 号 记录 。80 一 100 句 就 将 替换 后 的 新 记录 显示 出 来 
可 :5 

对 顺序 文件 ,归纳 起 来 必须 注意 以 下 几 点 : 

中 不 论 是 建立 .检索 或 修改 文件 都 必须 先 打 开 (OPEN) 文 件 
(APPEND 命令 除外 ) 后 使 用 。 
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四 建立 和 修改 文件 时 ,OPEN、WRITE、PRINT 三 者 必须 联 
j 。 (内 存 送 外 存 ) 

四 检索、 打印 文件 记录 时 ,OPEN、READ INPUT 三 者 必须 
6 用 。( 外 存 送 内 存 ) 

个 对 于 定位 命令 ,如 果 定 位 是 为 了 检索 .打印 记录 ,那么 
PEN POSITION 、 READ INPUT 四 者 必须 联 用 ;如 果 定 位 是 为 
“修改 记录 ,那么 OPEN、POSITION 、WRITE、PRINT 四 者 必须 
人 用 。 

@ 文 件 使 用 以 后 必须 关闭 。 

@@ 一 个 新 建 的 文件 必须 先 关闭 再 重新 打开 后 才能 马上 进行 
索 。 不 能 够 一 边 建立 文件 一 边 检索 文件 。 

顺序 文 件 只 能 按 顺序 建立 和 顺序 存 取 。 


9.4 随机 文件 的 建立 和 检索 


9.4.1 随机 文件 的 建立 方式 


1， 随 机 文件 的 建立 命令 

格式 ,OPEN (文件 名 》Lj [,Ss] [,Dd]j [,Vv] 

作用 : 建立 或 打开 一 个 随机 文件 。 如果 文件 名 不 存在 ,就 新 
寺 立 一 个 文件 并 把 文件 名 列 入 磁盘 目录 中 ;如 果 文 件 名 已 经 存 
E, 就 打开 该 文件 。 

其 中 : 

Li 一 一 表示 记录 的 长 度 。j 可 以 是 1 一 32767 之 间 的 一 个 无 
号 整数 。 

Ss,Dd,Vv 含义 同 前 述 。 

在 用 OPEN 命令 来 建立 随机 文件 时 ,DOS 并 不 把 记录 的 长 
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度 Dj 存 入 磁盘 中 。 如 果 打 开 文 件 时 指定 的 记录 长 度 与 建立 文件 
时 的 长 度 不 一 致 ,那么 DoS 始终 按 现在 给 出 的 记录 来 计算 文人 
中 各 个 记录 的 位 置 . 如 果 存 在 前 后 记录 长 度 不 一 的 现象 , 读 取 记 
录 时 可 能 造成 错位 。 为 避免 出 错 , 创 建文 件 时 的 记录 格式 和 检索 
记录 时 的 格式 应 当 完 全 一 样 。 

例 9.8 创立 一 个 随机 文件 。 

我 们 仍然 以 学 生 情况 统计 表格 为 例 来 说 明 如何 建 立 随机 广 
件 。 

10D$ =CHR$(4) 

20 PRINT D$ ;OPEN 学 生 125,L25?” 

为 了 使 随机 文件 名 不 同 于 顺序 文件 名 ,这 里 把 随机 文件 的 
名 字 取 为 “学 生 L25”, 表 示 学 生 文件 的 记录 长 度 是 25 个 字符 ， 
L25 就 表示 了 记录 长 度 。 

2. 写 随机 文件 

格式 : WRITE (文件 名 》[,Rr] [,Bb] 

作用 :将 记录 写 到 指定 的 随机 文件 中 去 。 

其 中 ， 

Rr 一 一 表示 指定 文件 的 第 r 个 记录 ,r 的 值 可 以 是 0~ 
32767 之 间 的 一 个 整数 ,这 个 数 就 表示 把 记录 写 到 随机 文件 的 
第 几 号 记录 位 置 上 。 当 +r=0 或 省 略 不 写 时 ,表示 从 随机 文件 的 
第 0 号 记录 开始 写 入 记录 内 容 。 从 这 里 可 以 看 到 ,随机 文件 并 
不 象 顺序 文件 那样 必须 顺序 写 入 ,而 是 可 以 按 任何 次 序 ( 由 用 户 
确定 ) 来 建立 文件 .当然 ,不 按 顺 序 来 建立 就 必须 指出 记录 号 码 ， 
这 就 是 参数 Rr 的 作用 。 

Bb 一 一 表示 从 该 记录 的 第 b 个 字 节 开始 执行 写 操作 ( 即 写 
入 的 内 容 从 第 b 个 字 节 开始 存放 )。 如 果 b 值 太 大 以 致 超过 了 
记录 划 定 的 长 度 , 那 么 可 能 影响 到 其 它 记 录 的 存放 位 置 , 从 而 导 
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致 数据 和 记录 位 置 错位 。 

在 使 用 WRITE 来 写 随机 文件 时 ,需要 注意 : 

@ 使 用 WRITE 之 后 ,在 没有 关闭 文件 之 前 ,不 能 用 DOS 的 
其 它 命令 或 INPUT、GET 语句 ,否则 ,将 会 停止 WRITE 命令 的 


执行 。 


@@ 尽 管 随机 文件 记录 的 写 入 可 以 不 按 顺 序 , 但 我 们 最 好 还 
是 依次 顺序 写 入 ,以 免 弄 错 或 弄 掉 一 些 记 录 。 

例 9.9 随机 文件 的 写 入 命令 用 法 示例 。 

10D$=CHR 和 (4) 

20 PRINT D $ “OPEN 学 生 L25,L25? 

30 PRINT D$ “WRITE 学 生 L25? 

第 20 句 创立 一 个 随机 文件 “学 生 L25” 

第 30 句 表 示 从 随机 文件 的 第 0 个 记录 位 置 开 始 写 入 记录 。 

在 建立 随机 文件 时 ,除了 在 PRINT 中 媒 套 OPEN 和 
WRITE 命令 以 外 ,还 需要 有 PRINT 语句 的 配合 ,才能 完成 文件 
的 建立 工作 。 下 面 我 们 仍然 使 用 学 生 情 况 统计 表 中 的 数据 来 建 
立 一 个 完整 的 随机 文件 。 

例 9. 10 建立 随机 文件 的 完整 示例 。 


19 D$ = CHR 叫 《9q) 


26 
39 
46 
59 
69 
7@ 


PRINT D$;i ”OPEN 学 生 L25,，L25” 
FOR TI = 17T03 

PRINT D$i "WRITE 学 生 L25,R"iTI 
READ 有 蔬 ，B，C 蔬 ，D，E 

PRINT Ph$，B，C$，D，E 

NEXT I 
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86 PRINT D$; "CLOSE 学 生 L25” 

98 DRTR 张 ” 山 ,631, 男 , 15,95 
92 ”DATA 李 丽 丽 ,632, 女 , 13,88.5 
94q DATR 王 大力 ,634, 男 ，1q,74.4 
198 ”END 


]MON CI*0 
]RUN 


DPEN 学 生 L25,L25 
WRITE 学 生 L25,R1 


张 ” 山 631 男 15 
95 

WRITE 学 生 L25,R2 

李 丽 丽 632 女 13 
88.5 

钠 ITE 学 生 L25,R3 

王 大 力 634 男 14 
7q.4 


CLOSE 学 生 L25 


MON C,I'O 是 监控 命令 ,表示 显示 执行 过 程 。 清 除 监 控 用 
NOMON C,I,O。 

从 以 上 显示 的 运行 情况 看 出 ,我 们 需要 的 数据 确实 写 入 了 
随机 文件 “学 生 L25” 中 。 需 要 说 明 的 是 : 

第 20 句 表 示 打 开 随机 文件 ,文件 名 字 是 “学 生 L25”,L25 
表示 随机 文件 的 记录 长 度 。 打 开 文 件 必须 按 20 句 给 出 的 形式 
书写 。 


第 40 句 表示 把 数据 写 入 文件 。 其 中 引号 中 的 “R ”表示 记录 
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的 意思 ,分 号 后 的 “I" 用 以 标明 是 哪个 记录 ( 即 记录 号 ) 。 写 文件 
的 形式 也 必须 如 此 。 

第 50 句 是 将 数据 区 的 数据 传送 给 变量 A$ 、.B$ 、C$ 、D、 
E。 

第 60 句 才 真正 将 数据 传送 到 软盘 上 的 文件 中 去 。 

第 90 一 94 句 用 于 提供 数据 。 从 例 中 看 到 ,字符 型 数据 也 可 
以 不 带 引 号 。 

要 完成 对 随机 文件 的 写 入 操作 ,也 必须 用 WRITE 配合 
PRINT 语句 。 关 闭 文 件 的 命令 CLOSE 总 是 需要 的 ,格式 同 前 述 
- 样 。 


9.4.2 随机 文件 的 检索 


检索 任何 文件 , 均 需 要 将 其 读 入 到 内 存 , 随 机 文件 也 不 例 
外 。 现 在 看 看 随机 文件 的 读 入 命令 : 

格式 : READ (文件 名 》[,Rr] [,Bb] 

作用 :将 指定 文件 的 指定 记录 读 入 内 存 。 

其 中 : 

Ri 一 一 表示 对 随机 文件 中 的 第 个 记录 执行 读 入 操作 。r 
的 值 一 定 是 随机 文件 的 记录 号 。 

Bb 一 一 表示 从 记录 的 第 b 个 字 节 开始 读 入 。 

我 们 先 来 看 下 面 的 例子 : 

例 9.11 把 学 生 L25 随机 文件 的 第 3 个 记录 读 入 到 内 存 ， 
并 在 屏幕 上 显示 出 来 。 


5 INPUT “IT=…5I 
16 D$ = CHR$ 《〈4)》 
29 PRINT 0$5“"OPEN 学 生 L25,L25” 
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38 PRINT D$; “READ 学生 L25，R”5I 
486 INPUT h$ 
58 “PRINT D$) "CLOSE 学 生 L25” 
69 PRINT 及 $ 
7 了 @ END 


]RUN 

I=3 

OPEN 学 生 L25,L25 
RERD 学 生 L25,R3 

? 王 大 力 634 男 1474.4 
CLOSE 学 生 L25 

王 大力 634 男 1474.4 


给 出 不 同 的 工 值 就 可 以 检索 到 文件 中 不 同 的 记录 。 
9.4.3 随机 文件 的 添加 和 修改 


随机 文件 的 添加 和 修改 都 比较 方便 ,我 们 要 添加 和 修改 哪 
个 记录 ,只 要 给 出 记录 号 重新 写 入 就 行 了 。 我 们 用 例子 来 说 明 。 

例 9.12 在 学 生 文件 中 添加 1 个 新 记录 。 

4 号 李 花 635 女 14 85.5 

程序 如 下 : 


196 INPUT “ITI=” 3 

28 INPUT h$,，B,C$，D，E 

38 0 利 = CHR$《94) 

de PRINT 0$5 “OPEN 学 生 L25,L25” 
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5@ PRINT D$i "WRITE 学 生 .L25,，R” 5 
68 PRINT h$,B,C 叫 * D，E 

78 PRINT D$i"CLOSE 学 生 L25” 

8 END 


]MON CT,0 


]RUN 

I=d4 

?9 李 ” 花 ,635, 女 ,14,85.5 

OPEN 学 生 L25,L25 

WRITE 学 生 L25,Rq 

李 花 635 女 
85.5 

CLOSE 学 生 L25 

例 9.13 将 1 号 记录 换 成 :< 张 玲 637 女 14 

1 INPUT “I="5T 

29@ INPUT “输入 修改 数据 :"5h$,B,C$,D,E 

38 D$ = CHR$ 〈9q)》 

48 ”PRINT D$;"0PEN 学 生 L25,L25” 

58@ PRINT D$i"“"WRITE 学 生 L25,R"5I 

69 PRINT h$，B,C$,D,，E 

78 PRINT D$; "CLOSE 学 生 L25" 

89 END 


]RUN 

I=1 

输入 修改 数据 : 张 ” 玲 ,637, 女 ,14,93 
OPEN 学 生 L25,L25 


14 


93 妇 
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URITE 学 生 L25,R1 

张 玲 637 女 14 
93 

CLOSE 学 生 L25 


我 们 要 检查 文件 中 的 修改 是 否 属 实 , 可 以 编写 一 个 检索 和 
序 ( 请 读者 自己 完成 ), 其 运行 结果 如 下 : 


RUNw- 

张 玲 637 女 14 93 
李 丽 丽 632 女 13 88.5 
王 大 力 634 男 14 74.4 
李 花 635 女 14 85.5 
王 武 636 男 13 90.1 


对 于 随机 文件 来 说 ,我 们 要 注意 以 下 几 点 : 

人 @ 建 立 文件 .修改 和 添加 记录 时 都 是 OPEN、WRITE、 
PRINT 三 者 联 用 。 

@ 检 索 文 件 时 ,OPEN、READ .INPUT 三 者 联 用 。 

图 无 论 是 写 ( 内 存 送 外 存 ) 还 是 读 ( 外 存 送 内 存 ) 操 作 , 均 要 
提供 记录 号 。 机 器 就 是 根据 记录 号 来 进行 直接 存 取 的 。 当然 , 记 
录 号 并 不 要 求 一 定 依次 连续 ,但 不 能 超 界 。 记 录 号 的 范围 是 0~ 
32767。 在 建立 文件 时 ,如 果 乐 意 的话 , 完 全 可 以 先 写 入 5 号 记 
录 , 再 写 入 3 号 记录 。 但 这 样 交 错 进行 的 缺点 是 有 时 候 自 己 都 
不 清楚 写 入 了 哪些 记录 。 因 此 ,建议 最 好 用 顺序 方式 来 建立 文 
件 , 用 随机 方式 来 检索 和 修改 文件 。 

人 随机 文件 中 不 能 用 POSITION 和 APPEND 命令 。 

@@ 建 立 和 检索 文件 之 前 用 OPEN 打开 文件 ,然后 用 CLOSE 
关闭 文件 。 

力 所 有 命令 都 必须 髓 入 PRINT 之 中 才能 生效 。 
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问题 与 思考 
1. 文件 是 若干 数据 的 集合 ,数组 也 是 若干 数据 的 集合 ， 
者 的 区 别 是 什么 ? 


2. 顺序 文件 和 随机 文件 最 根本 的 区 别 是 什么 ? 
3. 为 什么 随机 文件 不 用 POSITION 和 APPEND 命令 ? 


习题 九 


1. 分 别 用 顺序 文件 和 随机 文件 来 建立 如 表 9. 4 的 人 事 文 


并 对 文件 进行 增加 和 修改 , 写 出 相应 的 程序 。 

2. 建立 一 个 工资 管理 文件 系统 ,该 系统 能 够 建立 工资 文 
件 , 增 添 新 职工 工资 信息 ,修改 职工 工资 ,统计 所 有 职工 的 总 工 
资 。 写 出 进行 这 些 操作 的 程序 。 
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第 二 部 分 LOGO 语言 程序 议 计 


本 部 分 详细 介绍 了 LOGO 语言 程序 设计 的 方法 和 技巧 。 包 
括 :LOGO 的 基本 概念 , 海 色 直 接 作 图 ,程序 作 图 , 数 . 字 和 表 处 
理 以 及 函数 图 形 的 编程 方法 ,并 给 出 了 大 量 有 趣 图 形 的 程序 实 
例 。 
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第 十 章 “LOGO 语言 的 基本 概念 


10.1 什么 是 LOGoO 语言 


LOGO 语言 是 美国 麻 省 理工 学 院 人 工 智能 实验 室 于 一 九 六 
八 年 开发 的 适合 于 青少年 和 初学 者 学 习 与 使 用 的 一 种 电脑 语 
言 。LOGO 语言 有 很 强 的 作 图 功能 ,能 够 进行 比较 复杂 的 字 和 表 
的 处 理 , 同 时 也 能 够 进行 数值 的 计算 和 分 析 。 

“LOGO"” 这 个 词 ,原意 是 “符号 ?或 "思考 ?的 意思 。 设 计 者 用 
LOGO 来 作为 一 种 电脑 语言 的 名 称 , 可 谓 用 心 良 苦 ,含义 深刻 。 
LOGO 语言 的 主要 发 明 者 之 一 的 侯 帕 特 (Seymour papert) 教 授 认 
为 :刻板 的 计算 机 辅助 教学 ,实际 上 是 用 程序 设计 去 束缚 青少年 
的 想象 力 和 创造 力 。 六 十 年 代 对 青少年 进行 计算 机 辅助 教学 的 
实践 ,也 使 人 们 认识 到 :辅助 教学 的 目的 ,不 应 该 是 仅仅 让 计算 
机 来 教育 青少年 ,而 更 重要 的 是 要 让 计算 机 帮助 青少年 学 会 思 
考 , 提 高 分 析 和 解决 问题 的 能 力 。 总 之 ,应 该 使 计算 机 成 为 青 少 
年 的 朋友 和 助手 ,而 不 应 该 是 他 们 的 主人 。 

LOGO 语言 采用 青少年 喜闻乐见 的 用 积木 拼图 的 方式 , 通 
过 所 谓 的 海龟 作 图 来 学 习 编 制程 序 , 训 练 他 们 的 逻辑 思维 和 创 
造 能 力 , 为 进一步 学 习 其 它 电脑 语言 打下 基础 。 

佩 帕 特 教授 认为 :计算 机 将 会 同 电视 一 样 普 及 ,因而 他 们 研 
制 的 LOGO 语言 不 仅 适用 于 青少年 ,也 适宜 于 非 计 算 机 专业 的 
人 员 学 习 和 使 用 。 
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近 几 年 来 ,LOGO 语言 在 国内 已 经 有 了 较 快 的 发 展 。 国内 使 
用 的 一 般 微 型 机 ,如 IBM PC,APPLE 及 其 兼容 机 等 均 配备 有 
LOGO 语言 。 目 前 流行 的 中 华 学 习 CEC- I 上 专门 固化 有 LOGO 
语言 的 一 个 子 集 。 


10. 2 LOGO 语言 的 特点 


1. 语句 简单 ,易学 、 易 用 、 易 记 

LOGO 的 语句 (又 称 命 令 ) 中 ,很 多 命令 本 身 就 是 一 个 英文 
单词 (部 分 命令 还 可 以 缩写 ) ,即使 是 不 懂 英 语 的 人 ,记忆 也 不 困 
难 。 目 前 还 有 拼音 方式 的 LOGO 语言 问世 ,采用 人 们 常用 的 汉 
语 拼音 书写 的 命令 ,更 适合 于 青少年 的 学 习 使 用 。 

2. 面向 过 程 的 语言 

LOGoO 的 程序 (又 称 过 程 ) 可 以 由 一 个 或 多 个 LOGoO 的 基本 
命令 组 成 ,而 这 个 过 程 一 旦 建立 起 来 ,又 可 以 将 它们 作为 用 户 自 
定义 命令 在 程序 中 使 用 ,因而 LOGO 有 扩展 性 。 

3. 有 很 强 的 会 话 能 力 

不 论 是 LOGO 的 基本 命令 ,还 是 由 用 户 自 定义 的 命令 ,都 可 
以 在 键盘 上 直接 输入 ,并 被 立即 执行 ,执行 的 结果 ,也 随即 在 屏 
幕 上 显示 出 来 。 当 输入 发 生 错 误 时 ,还 会 在 屏幕 上 提示 出 错 信 
息 ,使 用 户 很 方便 的 进行 修改 或 重新 输入 。 

4. 适宜 模块 化 程序 设计 

一 个 大 的 程序 可 以 由 若干 个 小 的 程序 组 成 ,每 一 个 小 的 程 
序 又 由 LOGO 的 基本 命令 组 成 。 这 些 程序 可 以 独立 使 用 ,独立 
调试 ,独立 修改 ,独立 完成 一 定 的 功能 , 故 称 为 模块 所 有 模块 可 
以 同时 储存 在 计算 机 中 ,以 备 随时 调用 。 

5. 允许 过 程 嵌 套 和 递归 调用 
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当 将 某 个 过 程 模块 作为 自 定 义 命令 用 于 另外 的 过 程 之 中 
时 , 称 为 “过 程 嵌 套 ”, 而 将 某 过 程 模块 作为 自 定义 命令 用 于 本 身 
的 过 程 中 时 , 即 自己 调用 自己 , 称 为 “递归 ”。 过 程 的 嵌 套 与 递归 
功能 ,使 编制 高 水 平 的 结构 化 程序 和 绘制 复杂 图 形变 得 更 加 容 
易 。 

6. 控制 海龟 移动 实现 作 图 

LOGO 可 以 直接 控制 海 怨 移 动 , 使 其 在 屏幕 上 留 下 移动 的 
痕迹 ,从 而 完成 绘图 。 直 接 控制 海龟 移动 的 命令 既 少 又 简单 ,而 
且 还 可 以 直接 看 到 绘图 的 经 过 ,因而 青少年 和 初学 者 很 容易 党 
握 。 

7. 具有 数 . 字 和 表 处 理 的 能 力 

LOGO 提供 了 数 函数 及 字 和 表 的 处 理 功能 ,因而 可 以 进行 
一 些 数值 计算 和 字符 处 理 。 


10. 3 LOGO 语言 的 启动 


中 华 学 习 机 CEC- I 上 可 以 使 用 几 种 版 本 的 LOGO 语言 。 固 
化 在 CEC- I 主机 上 的 LOGO 语言 , 称 为 固化 LOGO。 另 外 还 有 
通过 软盘 来 启动 的 LOGO, 如 :APPLE-LOGO 和 复合 LOGO 等 。 
固化 LOGO 和 软盘 LOGO 的 启动 方式 略 有 不 同 。 

1. 固化 LOGoO 的 启动 

中 按 要 求 正 确 联接 好 硬件 系统 。 

@ 打 开 显示 器 或 电视 机 电源 。 

@@ 稍 候 , 再 打开 主机 电源 ,系统 自动 进入 西 文 BASIC 状态 ， 
屏幕 上 出 现 提 示 符 “]” 和 办 动 的 光标 。 

由 键入 LGw (用 上 巡 表 示 回 车 键 , 下 同 ), 屏 幕 显 示 如 图 10. 
1。 屏 幕 左下 角 出 现 LOGO 提示 符 “?” 和 光标 ,至 此 ,固化 LOGO 
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启动 完毕 ,就 可 以 开始 使 用 LOGO 命令 了 。 
CHINESE EDUCATION COMPUTER 
LoGoO 


VERSION 1.1 


图 10.1 固化 LOGoO 的 启动 
回 若 需 进入 彩色 状态 (外接 必 须 是 彩色 显示 器 )， 可 按 下 述 
步骤 进行 : 当 “?” 提 示 符 出 现 后 ， 殴 Ctrl 十 Reset 键 中 断 ， 进 入 
监控 ， 提 示 符 变 为 “* ”， 然 后 再 融 CTRL+Y 键 ， 则 在 屏幕 左 
上 角 出 现 彩 色 提 示 符 “?”, 此 时 系统 便 进入 彩色 LOGO 状态 , 这 
就 可 以 使 用 彩色 绘图 命令 了 。 还 可 以 用 命令 进入 彩色 ， 这 条 命 
令 是 .DEPOSIT 49328 16w  。 
@@ 若 欲 退 出 LOGO ,返回 到 BASIC 状态 ,可 使 用 Ctrl 十 Reset 
键 中 断 ,在 屏幕 上 出 现 提示 符 “* ”后 ,再 使 用 CTRL-+B 键 , 然 后 
回 车 , 即 可 返回 BASIC ,屏幕 上 出 现 “]? 提 示 符 。 
另外 ,如 果 机 器 是 用 DOS 来 启动 的 ,那么 还 可 用 下 述 命令 
来 启动 固化 LOGO， 
]MAXEFILE 1x/ 
]LGw- 
这 样 ,以 后 就 可 以 对 固化 LOGO 的 过 程 和 图 形 进 行 存盘 和 
调用 了 。 
2. APPEL-LOGO 软盘 的 启动 
全 主机 启动 前 ,将 软盘 按 正 确 方向 插入 驱动 器 , 关 好 驱动 器 
的 “ 门 ”。 
人 @ 打 开 显 示 器 电源 。 
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多 稍 候 , 打 开 主 机 电 源 ,驱动 器 即 开 始 工作 ,屏幕 显示 如 图 
10. 2。 


PRESS THE RETURN KEY TO BEGIN 


IF YOU HAVE YOUR OWN FILE DISKETTE， 
INSERT IT NOW，THEN PRESS RETURN 


口 


(C) LOGO COMPUTER SYSTEMS INC. 1982 


图 10. 2 APPLE LOGO 的 启动 
屏幕 提示 的 英文 意思 是 ,如果 你 有 自己 的 LOGO 文件 盘 ， 
请 把 LOGO 源 盘 取出 , 换 上 文件 盘 ,然后 敲 回 车 键 。 若 没有 文件 
盘 , 敲 回 车 键 即 可 开始 .” 这 是 提醒 用 户 : 为 LOGO 源 盘 至 少 准备 
一 个 备份 盘 ,以免 当 源 盘 遭受 意外 损坏 后 无 LOGO 系统 盘 可 用 。 
介 敲 回 车 键 后 , 稍 候 , 屏 幕 显示 如 图 10. 3。 


WELCOME TO LOGO 


系 辐 


图 10.3 LOGO 启动 后 的 屏幕 提示 

提示 符 “?? 的 出 现 ,表明 系统 已 进入 LOGO 状态 (包括 彩色 
状态 ) 。 

以 上 启动 过 程 称 为 “ 冷 启动 ”。 

@@ 若 主机 已 经 处 于 BASIC 状态 下 , 则 在 插入 软盘 后 ,在 提 
示 符 “] ”后面 键 入 PR#6w , 则 驱动 器 开始 工作 ,同样 可 以 进入 
LOGO 状态 。 这 称 为 “ 热 启动 ”。 

图 若 欲 退出 LOGO ,返回 到 BASIC 状态 ,对 于 APPLE-LO- 
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GO ,一般 用 CTRL 十 RESET“ 中 断 ” 无 效 , 可 以 用 . BPT 上 进入 监 
控 , 再 用 CTRL 十 B 和 回 车 键 返回 BASIC 状态 。 

对 于 不 同 版 本 的 LOGO 软盘 ,启动 过 程 和 屏幕 显示 大 同 小 
异 , 可 根据 屏幕 提示 进行 操作 。 


10.4 海 怨 的 概念 


1. 什么 是 海龟 ? 

用 LOGO 语言 来 绘图 ,是 通过 控制 所 谓 "海龟 ?的 爬行 来 实 
现 的 。 什 么 是 海龟 呢 ? 

“?? 状 态 下 , 试 键入 CSw 则 清 屏幕 ,并 自动 进入 "图形 / 文 

本 混合 显示 ?状态 ,屏幕 下 方 有 四 行文 本 区 , 供 书写 命令 之 用 ,而 
在 屏幕 中 心 位 置 出 现 一 个 白色 的 尖 头 向 上 的 小 三 角形 ,这 就 是 
LOGO 语言 中 的 海龟 ,也 有 称 其 为 "图 龟 ? 和 ” 画 怨 "的 。 当 海龟 在 
有 关 命令 驱使 下 移动 时 ,其 运动 的 轨迹 即 构成 图 形 ,这 就 是 海龟 
作 图 。 

海龟 的 形状 ,在 固化 LOGO 状态 下 ,可 以 用 下 述 命令 使 之 放 
大 ,放大 后 的 形状 如 图 10. 4。 


? DRAWAC (a) 
?.DEPOSIT 230 2 DRAWw (b) 
?.DEPOSIT 230 4 DRAWAw/ (c) 
?.DEPOSIT 230 6 DRAWA (Cd) 


Ca) (b) Co) Cd) 
图 10.4 海龟 的 形状 


正式 使 用 海龟 绘图 时 , 若 将 海 龟 恢复 原状 ,使 用 命令 是 
?.DEPOSIT 230 1 DRAW  。 

2. 海 色 的 移动 

人 前 进 : 海龟 按 尖 头 方向 爬行 。 

思 后 退 : 海 怨 按 尖 头 反方 向 爬行 。 

@ 左 转 : 海龟 尖 头 按 逆 时 针 方 向 偏转 。 

昌 右 转 : 海龟 尖 头 按 顺 时 针 方 向 偏转 。 

在 图 10. 5 中 , 海 色 最 先 处 于 原始 位 置 (屏幕 中 心 ) .其 中 (a) 
图 表示 海龟 前 进 了 50 步 , (b) 图 表示 海 色 在 (a) 图 位 置 上 后 退 了 
20 步 ,(c) 图 表示 海 色 在 (b) 图 位 置 上 左 转 90 度 , (d) 图 表示 海 
龟 在 (c) 图 位 置 上 又 左 转 120 度 ( 也 可 以 说 是 右 转 240 度 ) , (e) 
图 表示 海 色 在 (d) 图 位 置 上 后 退 20 步 。 


400) (ay) (b) (c) (d) (e) 


图 10.5 海龟 的 移动 
3. 海 怨 的 移动 范围 
屏幕 取 X 一 Y 坐标 如 图 10. 6 ,海龟 的 原始 位 置 在 屏幕 中 
心 , 坐 标 为 (0,0) ,纵横 坐标 的 单位 以 海龟 步 计 。 
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[加 哺 几 
机 


(0. -120) 


图 10.6 海龟 的 移动 范围 

横 坐 标 X 的 范围 是 :一 140 入 X 委 139。 

纵 坐 标 立 的 范围 是 :一 120 委 X 委 119。 

为 在 屏幕 上 绘 出 正确 的 图 形 ,必须 使 海 怨 在 上 述 范围 内 移 
动 。 若 海龟 的 活动 范围 超出 上 述 界限 ,就 会 自动 构成 循环 爬行 ， 
即 海龟 向 卜 行 超出 119 步 ( 从 原始 位 置 算 起 ), 它 就 会 从 对 称 
的 另 一 方向 (屏幕 下 端 ) 钻 出 来 ;而 向 左 疏 行 超出 140 步 , 同 样 的 
也 会 从 屏幕 右 端 销 出 来 ,反之 亦 然 。 这 种 循环 怜 行 的 结果 ,可 能 
导致 正确 的 图 形 被 破坏 ,所 以 在 使 用 绘图 命令 和 设计 程序 时 ,应 
注意 控制 海龟 在 规定 的 范围 内 活动 。 

海 怨 的 上 述 活动 范围 ,是 全 图 形 显示 时 的 情况 。 当 屏幕 处 于 
混合 显示 方式 时 ,系统 将 屏幕 下 方 的 四 行 留 作文 本 区 ,所 以 海龟 
向 下 移动 超过 80 步 时 ,就 看 不 见 它 的 踪影 了 ,但 只 要 不 超过 
120 步 , 仍 不 会 影响 运行 结果 。 


习题 十 


1. 按 要 求 正 确 进行 固化 LOGO 的 启动 ,并 使 用 10. 4 节 所 介 
8: 


绍 的 命令 ,观察 海 色 的 形状 。( 注 意 该 命令 中 的 空格 ,用 空格 键 产 
生 )。 

2. LOGO 命令 全 部 使 用 大 写 英 文字 母 , 请 从 键盘 上 按 顺序 
键入 ABC……Y\、Z 26 个 字符 ,及 数字 ,注意 观察 字符 O.I 和 
数字 0、1 的 差别 。 

3. 使 用 APPLE-LOGO 软盘 ,练习 “ 冷 启 动 ”>, 然 后 进入 BA- 
SIC 状态 ,再 进行 “ 热 启动 ”。 
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第 十 一 章 ”海龟 直接 绘图 法 


所 谓 直接 绘图 ,就 是 使 用 基本 绘图 命令 控制 海 色 的 状态 。 每 
当 殴 入 一 条 命令 后 ,系统 就 立即 执行 此 命令 ,海龟 也 就 立刻 移动 
或 转动 一 次 ,从 而 在 屏幕 上 完成 绘图 任务 。 即 写 则 即 绘 , 重 绘 必 
重 写 ,命令 不 能 保留 。 

当 系统 正确 启动 上 且 屏 幕 上 出 现 “?? 提 示 符 后 ,我 们 就 可 以 用 
LOGO 的 基本 绘图 命令 来 直接 作 图 了 。 

鉴于 固化 LOGO 只 能 在 中 华 学 习 机 上 使 用 ,有 一 定 的 局 限 
性 .为 此 ,本 部 分 以 APPLE-LOGO 作为 基础 来 介绍 绘图 ,程序 纺 
制 及 计算 等 ,其 与 固化 LOGO 的 区 别 , 将 在 相应 的 地 方 加 以 说 
明 。 


11.1 基本 绘图 命令 


11.1.1 移动 和 转向 命令 


当 我 们 在 “?? 后 面 键入 CSw ,屏幕 进入 图 形 /文本 混合 显示 
方式 ,屏幕 中 心 出 现 海龟 ,我 们 就 可 以 用 海 色 基 本 绘图 命令 来 作 
图 了 。 

1. 前 进 命令 

格式 :FORWARD/FD 〈 步 数 ， 

作用 :使 海龟 按 指定 的 步 数 移动 。 当 步 数 为 正 时 ,海龟 沿 尖 
头 方向 移动 若干 步 , 移 动 时 , 即 留 下 轨迹 ; 步 数 为 负 时 ,海龟 沿 尖 
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头 反方 向 移动 。 注 意 : 

@ 凡 用 “(?” 和 ”“)” 括 起 的 内 容 ( 称 参数 ) ,使 用 时 ,只 键入 其 中 
内 容 ,而 不 键入 “(” 和 ”“)” 符 号。 

包 命 令 与 参数 之 间 , 至 少 用 一 个 空格 ( 敲 空格 键 ) 隔 开 。 

GEFORWARDV/FD 中 ,前 者 为 全 命令 ,后 者 为 缩写 形式 , 作 
用 相同 (以 下 类 似 ) 。 

人 海龟 步 数 可 正 可 负 , 也 可 以 是 小 数 , 若 使 海龟 按 尖 头 方向 
前 进 时 , 步 数 必 须 为 正 。 

2. 后 退 命令 

格式 ;BACK/BK 〈 步 数 》 

作用 : 当 步 数 为 正 时 ,使 海龟 回 退 才干 步 ,其 作用 刚好 与 
FD 命令 相反 。 

3. 左 转 命令 

格式 :LEFT/LT (角度 》 

作用 :使 海龟 的 尖 头 转动 知 干 度 , 当 角度 为 正 时 ,海龟 尖 头 
按 逆 时 针 方 向 (左旋 ?转动 ,不 移动 ; 当 角 度 为 负 时 ,海龟 尖 头 则 
按 顺 时 针 方 向 ( 右 旋 转动。 注意 : 

四 角度 用 “ 度 ” 计 , 若 为 弧度 值 , 需 要 换算 。 

思 当 角度 值 大 于 360 度 时 , 海 怨 转动 的 实际 角度 为 减 去 
360 度 的 者 干 倍 后 剩余 的 度数 。 

4. 右 转 命令 

格式 :RIGHTVRT (角度 》 

作用 :与 左 转 命令 LT 的 作用 相反 。 

例 1. 健 入 下 面 的 命令 ,观察 海 色 的 动作 。 


? CSw- ( 清 屏 、 复 位 ) 
? FD 80w/ (向 上 走 80 步 ) 
? BK 50u/ (后 退 50 步 ) 
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? LT 90w/ (〈 原 地 左 转 90?) 

? RT 120wl/ ( 原 地 右 转 120?) 

? FD 30 (在 上 述 位 置 , 进 30 步 ) 
以 上 命令 的 执行 结果 见 图 11.1 


CS FD80 BK50 LT90 RT120 FD30 


图 11.1 海龟 的 动作 图 示 
例 2 再 来 一 


CSu/ 

FD 60wl/ 

RT 90xj/ 

FD 60xl/ 

RT 90w/ 内 

FD 60 RT 90 xf 

( 进 60, 转 90?) 图 11.2 海龟 画 正方 形 
? FD 60 RT 90 上 ( 进 60, 转 90") 


执行 以 上 命令 ,在 屏幕 上 得 到 一 个 边 长 为 60 的 正方 形 , 见 


习作 


9 


图 11. 2。 
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由 以 上 结果 ,可 以 知道 ,通过 使 用 移动 和 转向 命令 来 控制 海 
龟 , 只 要 改变 命令 所 对 应 的 参数 值 ( 步 数 或 角度 ), 就 可 以 获得 一 
些 简单 的 几何 图 形 。 当 然 也 可 以 指使 海 怨 任 意 移 动 和 转向 来 获 
得 随意 图 形 。 注 意 : 

中 命令 前 的 “? ”为 提示 符 , 不 键入 。 

@“? ?后 可 以 输入 多 个 命令 ,命令 之 间或 命令 与 参数 之 间 ， 
必须 用 空格 隔 开 。 

@@ 每 行 命令 均 以 敲 回 车 键 结束 ,用 “二 ”表示 。 为 简洁 起 见 ， 
以 后 的 示例 中 一 般 不 再 给 出 ,但 仍然 要 记 住 敲 回 车 键 。 

个 使 用 FD 或 BK 命令 时 ,其 步 数 应 考虑 屏幕 范围 ,否则 可 
能 会 造成 图 形 错乱 。 

@ 当 需要 重新 绘图 时 ,最 好 将 旧 图 清 掉 , 可 以 使 用 CSw ,CS 
为 屏幕 处 理 命令 , 见 11. 3. 1。 

@@ 要 特别 注意 不 要 把 数字 ”0” 和 字符 “9?” 相 混 消 。 

@ 若 在 输入 命令 或 参数 时 ,出现 错误 ,屏幕 将 提示 出 错 信息 
〈 见 附录 ) ,对 于 直接 绘图 ,一般 只 需 将 正确 的 命令 与 参数 按 正 确 
格式 重新 输入 即 可 。 

例 3. 利用 上 述 绘图 命令 , 绘 一 个 边 长 为 60 的 正三 角形 。 

要 想 使 图 形 顺利 绘制 成 功 , 必 须 注意 与 其 对 应 的 几何 关系 ， 
尤其 是 转动 的 方向 和 角度 ,必须 搞 清 楚 。 为 此 目的 ,一般 可 以 先 
在 纸 上 画 个 草图 ,然后 模仿 海龟 ,由 原始 位 置 出 发 , 沿 着 草图 走 
一 圈 , 记 住 每 次 走 的 步 数 和 转 过 的 角度 ,命令 就 可 以 写 出 来 了 。- 

草图 如 图 11.3。 设 原始 位 置 定 在 三 角形 左下 角 处 , 且 海 龟 
尖 头 向 上 。 

分 析 过 程 ， 

忆 先 右 转 30 度 ， 

包 前 进 60 步 ， 
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@ 右 转 120 度 ， 

多 前 进 60 步 ， 

@ 右 转 120 度 ， 

@ 前 进 60 步 ， 

G@) 右 转 90 度 , 回 到 原始 位 置 。 

按 上 述 分 析 ,融入 命令 如 下 : 

? CS 90” 

? RT 30 

? FD 60 RT 120 

? FD 60 RT 120 

? FD 60 RT 90 

融入 命令 后 ,屏幕 上 即 依次 显示 出 
一 个 正三 角形 ,如 图 11. 4。 


图 11.3 分 析 草 图 
读者 不 妨 试 用 上 述 方法 , 绘 出 正 五 边 形 ,正六 边 形 以 至 更 多 
边 数 的 图 形 。 


11.1.2 重复 命令 


从 以 上 结果 可 以 看 出 ,有 了 移动 和 转向 命令 ,一般 图 形 都 能 
够 画 出 来 了 ,但 随 着 图 形 边 数 , 边 长 的 变化 ,及 复杂 程度 的 增加 ， 
单纯 使 用 移动 和 转向 命令 ,就 显得 不 太 方便 了 。 我 们 分 析 一 下 前 
面 绘制 正方 形 的 过 程 , 不 难看 出 , 它 实 际 上 是 由 L[FD 60 RT 
90] 这 一 组 命令 ,重复 四 次 而 完成 的 , 当 我 们 使 用 下 述 重 复命 令 
时 ,将 使 绘图 命令 大 大 简化 。 

格式 :REPEAT (次 数 ) [( 命 令 )] 

作用 :将 方 括号 中 的 命令 重复 执行 指定 的 次 数 。 

例 4. 对 于 前 述 绘制 正方 形 的 过 程 ,用 重复 命令 实现 , 则 为 


? CS 
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? REPEAT 4[FD 60 RT 90] 

计算 机 执行 此 命令 ,将 使 海龟 在 屏 
幕 上 连续 绘 出 一 个 正方 形 。 注 意 : 

人 中 重复 次 数 必 须 是 正 整数 。 

@ 待 重复 执行 的 命令 必须 用 方 括号 
“[L2> 和 ”]? 括 起 来 .。 (在 APPLE 机 上 , 左 方 
括号 胡 SHIFT 十 N 键 , 右 方 括号 殴 
SHIFT 十 M 键 ) 。 

读者 不 妨 用 重复 命令 , 绘 出 正 五 边 形 、 正 六 边 形 和 多 边 形 ， 
也 可 以 将 命令 序列 中 的 RT 换 成 LT, 再 试 试 看 ,结果 如 何 。 


11.1.3 抬 笔 和 落笔 命令 


细心 的 读者 可 能 发 现 , 以 上 绘制 的 图 形 都 是 从 海龟 的 原始 
位 置 开 始 的 ,而 且 图 形 都 是 实 线 , 那 么 若 想 在 坐标 范围 内 的 任意 
位 置 开 始 绘图 ,或 者 准备 绘制 虚线 组 成 的 图 形 时 ,该 怎么 办 呢 ? 

若 将 海 色 移 动画 线 看 成 是 一 支 画笔 在 绘图 的 话 , 那 末 画图 
时 ,画笔 是 落 在 纸 上 的 ; 不 需 画图 时 ,把 笔 抬 起 来 ;换个 地 方 再 
画 时 ,只 要 把 笔 再 落下 来 ,问题 不 就 解决 了 吗 ? LOGO 中 提供 了 
抬 笔 和 落笔 命令 。 

1. 抬 笔 命 令 

格式 :PENUP/PU 

作用 :键入 此 命令 ,海龟 状态 不 变 , 但 当 用 移动 命令 使 海龟 
移动 时 ,屏幕 上 不 会 显示 轨迹 ,相当 于 把 画笔 抬 起 。 

2. 落笔 命 令 

格式 ;PENDOWN/PD 

作用 :画笔 在 PU 命令 下 抬 起 后 , 若 再 键入 此 命令 , 则 海 色 
再 移动 时 ,又 会 留 下 轨迹 ,相当 于 将 抬 起 的 画笔 重新 落下 。 注 
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图 11.4 正三 角形 


意 


GPU、PD 命令 后 均 无 参数 。 
@PU 和 PD 命令 必须 成 对 使 用 。 
例 5. 画 出 中 心 在 (一 50,50) 处 的 边 长 为 80 的 正方 形 。 


? CS ( 清 屏 、 复 位 ) 
? PU ( 抬 笔 ) 
? FD 10LT 90 FD 10 RT 90 (调动 海 色 ) 
? PD (落笔 ) 


? REPEAT 4[FD 80 LT 90] 〈 画 正方 形 ) 
例 6. 画 出 中 心 在 (50,50) 处 的 半径 为 40 的 圆 ( 以 36 边 


形 代 替 ) 。 


? CS 

? PU 

? FD 50RT 90 FD 10LT 90 

? PD 

? REPEAT 36[FD 40x 3.14/18 RT 10] 

以 上 二 例 结果 ,分 别 见 图 11. 5 和 图 11. 6。 

表达 式 “40 * 3. 14/18? 是 为 了 保证 圆 的 半径 为 40 而 计算 的 


步 数值 。 


@ 
(-50， 50) (50,50) 


和 


图 11.5 正方 形 图 11.6 圆 
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例 7. 画 出 中 心 在 原点 ,半径 为 80 的 虚线 圆 , 要 求 虚线 间 
隔 相 等 , 共 36 条 。 
? CS 
? PU FD 80 RT 90 PD ( 抬 笔 .调动 .落笔 ) 
? REPEAT 36[FD 80* 3.14/36 RT 5 PUEFD 80*3.14/36 RT 5 PD] 
所 得 图 形 见 图 11. 7。 
二 注意 : 当 命令 中 的 字符 (包括 
一 ~、 空格 ) 占 满 一 行 时 ,系统 会 自动 换 
7 \， 行 ,同时 在 原 行 末尾 出 现 *! " 提 
\， 示 , 表 示 为 系统 自动 换行 书写 程 
， ， 序 时 ,为 与 吉 回 车 键 而 换行 相 区 
8 7 。” 别 ,自动 换行 后 的 命令 退 后 二 个 
\、 “ ”以 上 字符 位 置 书写 。 当 需要 自动 
Re 换行 时 ,不 能 融 回 车 键 ,只 要 将 字 
图 11.7 虚线 加 符 依次 继续 输入 即 可 。 


11.1.4 坐标 绘图 命令 


从 上 面 的 示例 可 以 看 出 ,使 

用 前 述 命令 来 调动 海 色 (包括 多 次 移动 和 转向 ) 是 比较 麻烦 的 ， 
因为 在 调动 的 过 程 中 , 需 不 断 调整 海 色 的 运动 方向 ,尤其 是 若 不 
知 海 电 的 当前 方向 , 极 易 出 错 。 为 此 下 面 介绍 按 坐标 位 置 来 移动 
海龟 的 方法 。 

1. 横 坐 标 命令 

格式 :SETX (X 坐标 》 

作用 :将 海龟 按 水 平方 向 移 到 X 坐标 值 的 位 置 ,Y 坐标 位 

2. 纵 坐 标 命令 
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格式 :SETY (Y 坐标 》 

作用 :将 海龟 按 垂 直方 向 移 到 Y 坐标 值 的 位 置 ,X 坐标 位 
置 维持 不 变 。 

3. 纵横 坐标 命令 

格式 :SETPOS [(X 坐标 )(Y 坐标 >] 

(固化 LOGO 命令 为 :SETXY (X》(Y)) 

作用 :将 海龟 移 到 指定 的 坐标 位 置 。 

4. 纵横 坐标 打点 命令 

格式 :DOT [(X 坐标 ?(Y 坐标 )] 

(固化 LOGO 无 ) 

作用 :在 坐标 (X,Y) 处 打 一 点 ,与 海 优 无 关 。 

当 执 行 坐标 绘图 命令 时 ,海龟 将 由 当前 位 置 向 坐标 位 置 直 
接 移动 (与 海龟 方向 无 关 ) ,移动 过 程 若 在 落笔 命令 之 后 , 则 将 留 
下 轨迹 ,从 而 完成 绘图 。 注 意 : 

外 坐标 值 以 海龟 步 计 ,可 正 可 负 , 也 可 为 小 数 ,坐标 范围 见 
图 11.6。 

@ 使 用 SETPOS 命令 时 ,X 和 Y 立 坐 标 值 以 空格 隔 开 , 外 面 
必须 用 方 括号 “L? 和 ”“]? 括 起 来 。( 固 化 LOGO 命令 SETXY 后 不 
用 方 括号 ,但 X 和 Y 值 中 为 负 时 , 需 用 圆 括号 “(” 和 ”“)? 括 起 
来 ) 。 

例 8. 仍 画 出 中 心 在 (一 50,50) 处 的 正方 形 。 

? CS 

? PU SETPOS [一 10 10]PD ( 抬 笔 .调动 .落笔 ) 

? REPEAT 4[FD 80 LT 90] 


请 将 此 例 中 的 调动 命令 与 例 5 相 比较 。 
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11.2 重复 命令 的 嵌 套 使 用 


如 果 我 们 要 画 一 个 如 图 11. 8 所 示 的 风车 图 形 ,该 怎样 考虑 
呢 ? 从 图 上 不 难看 出 , 它 是 由 一 个 长 方形 每 次 旋转 90 度 , 经 过 
四 次 画 成 的 ,显然 这 也 是 一 个 重复 的 过 程 。 


例 9. 用 媒 套 的 重复 命令 画 一 
个 风车 图 案 。 

? CS 

? REPEAT 4[REPEAT 2[FD 60 RT 90 

FD 30 RT 90]RT 90] 

在 上 述 命 令 行 中 , 里 面 的 RE- 
PEAT 命令 画 出 长 方形 , 外 面 的 RE- 
PEAT 命令 使 之 旋转 四 次 ,每 次 右 转 
90 度 , 即 得 图 11. 8 风车 图 形 。 注 意 : 

人 方 括号 必须 成 对 使 用 。 

包 命 令 舱 套 可 以 有 若干 层 ,系统 执 行 时 , 先 内 后 外 , 逐 级 进 


图 11.8 风车 图 


:二 


体 。 
纺 欲 使 所 绘图 形 封 闭 ,海龟 转动 的 角度 总 和 应 为 360 度 的 

整 倍数 。 

下 面 再 给 出 几 个 使 用 嵌 套 命令 绘图 的 示例 。 

例 10. 旋转 三 角形 。 

? CS 

? REPEAT 5 [REPEAT 3[FD 50 RT 120]RT 72] 

结果 如 图 11. 9。 

例 11. 画 一 打 花 。 


“2229 


? CS 
? REPEAT 8[REPEAT 2[REPEAT 6[FD 12 RT 10]RT 120]RT 45] 


结果 如 图 11, 10。 


鸡 浅 


图 11.9 .三 角形 图 11.10 小 花 
例 12. 旋转 五 边 形 。 
? CS 
? REPEAT 10[REPEAT 5[FD 50 RT 72]RT 36] 


结果 如 图 11. 11 


图 11.11 旋转 五 边 形 图 11.12 闪光 的 海龟 
例 13. 闪光 的 海龟 。 
? CS 
? REPEAT 20[REPEAT 3[PU FD 12 PD FD 12] 
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PU BK 72 PD RT 18] 


结果 如 图 11. 12。 


11.3.1 屏幕 处 理 

1. 海龟 消 隐 

格式 ;HIDETURTLE/HT 

作用 :HT 命令 使 屏幕 上 只 显示 海 怨 的 移动 轨迹 ,而 不 再 显 
示 出 海 色 ,相当 于 将 海 优 隐藏 起 来 .如 果 在 绘制 图 形 时 不 希望 出 
现 海龟 , 则 用 此 命令 。 使 用 此 命令 ,还 可 以 提高 绘图 速度 。 

2. 海龟 重 显 

格式 :SHOWTURTLE/ST 

作用 :ST 命令 可 以 使 消 隐 的 海龟 重新 显示 在 屏幕 上 ,便于 
了 解 海 凶 的 当前 位 置 。 

3. 清 屏 复位 

格式 :CLEARSCREEN/CS (固化 LOGO 命令 为 :DRAW) 

作用 :清除 屏幕 图 形 ( 不 清 内 存 ) ,使 屏幕 自动 处 于 图 形 / 文 
本 混合 显示 方式 ,海龟 回 到 原始 位 置 . 此 命令 一 般 用 在 绘制 新 图 
之 前 对 屏幕 进行 清 屏 处 理 。 

4. 复位 不 清 屏 

格式 :HOME 

作用 :保留 屏幕 图 形 , 仅 使 海龟 返回 到 原始 位 置 ( 在 PD 命 
令 后 ,返回 时 ,要 留 下 轨迹 ), 多 用 于 程序 间 的 处 理 。 

5. 清 屏 不 复位 

格式 :CLEAN ( 男 化 LOGO 命令 为 :CS) 
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作用 :只 清 屏幕 , 海 怨 留 在 当前 位 置 ,状态 不 变 。 

11.3.2 测定 海龟 的 当前 状态 

1. 测 定 角度 

格式 :HEADING 

作用 :测定 海龟 当前 位 置 的 方向 与 立轴 之 间 所 形成 的 夹 角 
的 大 小 ( 均 以 顺 时 针 偏 离 立 轴 的 角度 计算 ) 。 

例 14.， 测定 偏 移 角度 。 


? CS 
? REPEAT 30[FD 3 RT 2] (绘图 ) 
? PR HEADING (测定 角度 ) 
60 (结果 ) 


结果 表明 海龟 当前 方向 沿 顺 时 针 偏 离 Y 轴 60 度 。 其 中 
“PR "为 打印 输出 命令 , 见 第 十 三 章 。 

2. 改变 海龟 方向 

格式 :SETHEADING/SETH (角度 》 

作用 :将 海龟 的 方向 按 顺 时 针 偏离 Y 轴 指定 角度 ,与 其 原 
方向 无 关 。 

3. 坐标 位 置 测 定 

格式 :XCOR/YCOR 

作用 :测定 海龟 当前 位 置 的 横 / 纵 坐标 值 。 

例 15. 测定 海 色 的 坐标 位 置 。 

保持 例 14 的 图 不 变 ( 图 11. 13) 。 再 键入 : 

? PR XCOR (测定 横 坐 标 ) 


41.6684 (结果 ) 
? PR YCOR. (测定 纵 坐 标 ) 
75. 1717 (结果 ) 


结果 表明 海龟 停留 处 的 坐标 为 :41. 6684,75. 1717。 
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上 述 对 应 的 图 形 、 角 度 及 坐标 如 图 11. 13 所 示 。 


75.1717 上 -一 一 一 


11.3.3 图 形 的 纵横 比例 设置 


通过 实际 上 机 操作 ,读者 可 能 已 经 
发 现 , 屏 幕 上 绘 出 的 图 形 ,出 现 正方 形 不 
方 , 圆 形 不 圆 的 情况 ,这 是 什么 原因 呢 ? 
这 是 由 于 屏幕 的 水 平方 向 和 垂直 方向 距 
离 长 度 的 比例 不 等 而 造成 的 。 即 是 说 同 
图 11. 13 海 色 的 偏 移 角度 样 一 步 , 水 平方 向 移动 比 垂直 方向 移动 

的 距离 要 长 一 些 。 为 了 减 小 由 于 比例 不 

当 引 起 的 图 案 变形 ,LOGO 提供 了 图 形 纵横 比例 设置 命令 。 

格式 :SETSCRUNCH (X) 

(固化 LOGO 的 命令 为 :. ASPECT (X)) 

作用 :改变 参数 X 的 值 , 可 以 改变 屏幕 纵横 比例 的 关系 ,X 
值 的 设置 范围 为 0. 6 一 1. 4。 

当 LOGO 正确 启动 后 ,图 形 比例 参数 自动 设 为 0. 8, 其 值 越 
小 ,图 形 越 扁 , 本 书 中 的 部 分 插图 和 附 图 都 是 在 X 取 值 为 1. 15 
时 打印 下 来 的 。 当 X 的 取 值 增 大 时 ,对 应 的 YY 坐标 的 允许 范围 
将 相应 减少 , 作 图 时 必须 注意 。 一 旦 给 定 X 值 ,关机 前 的 绘图 则 
均 在 此 比例 下 进行 , 阁 欲 恢复 开机 状态 ,再 执行 一 次 此 命令 ,并 
使 X 取 值 为 0.8 即 可 。 

读者 可 以 用 画 圆 来 试验 , 当 给 出 X 的 不 同 取 值 时 ,观察 图 
形 的 差别 。 

以 上 介绍 了 LOGO 的 基本 绘图 命令 。 在 使 用 时 经 常 涉及 到 
屏幕 的 显示 方式 ,不 同 显示 方式 用 以 下 控制 键 实现 ， 

Ctrl 十 工 ， 全 图 形 显示 , 即 显 图 隐 字 。 


41 .6684 
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(固化 LOGO 控制 键 为 :Ctrl 十 F) 
Ctrl 十 T， 全 文本 显示 , 即 显 字 隐 图 。 
Ctrl 十 S 图 形 / 文 本 混合 显示 , 即 图 形 文字 双 显 。 


习题 十 一 


1 用 重复 命令 绘 出 五 边 形 和 六 边 形 。 

2. 用 重复 命令 绘 出 五 角 星 。 

3. 通过 原点 , 沿 水 平方 向 从 一 120 到 120, 画 一 条 点 划 线 作 
为 X 轴 :线段 长 为 26, 间 院 为 1, 点 长 为 2。 

4. 通 过 原点 , 沿 坚 直 方向 从 一 90 到 90, 画 一 条 虚线 作为 了 
轴 :线段 长 为 10, 间 阶 为 10。 

5. 画 出 图 1 所 示 的 旋转 正方 形 。 

6. 画 出 图 2 所 示 的 正方 体 ( 太 十 自 定 ) 。 


图 1 旋转 正方 形 图 2 正方 体 
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7. 画 出 图 3 所 示 的 表格 。 


图 3 表格 
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第 十 二 章 ”海龟 程序 绘图 法 


第 十 一 章 介绍 的 基本 命令 直接 绘图 的 方法 虽然 简单 , 却 存 
在 以 下 缺点 :一 是 敲 入 的 命令 只 能 使 用 一 次 ,不 能 保存 。 二 是 命 
令 涉及 的 参数 都 是 固定 的 ,不 能 随 具体 情况 的 不 同 而 发 生变 化 。 
为 克服 这 些 缺 点 ,LOGO 又 提供 了 过 程 绘图 。 本 章 将 要 介绍 如 何 
用 过 程 来 实现 绘图 。 


12.1 过 程 及 其 建立 


12.1.1 什么 是 过 程 


所 谓 过 程 , 简 单 说 来 ,就 是 由 若干 基本 命令 按 一 定 要 求 汇集 
在 一 起 且 能 够 完成 一 定 功能 的 一 个 程序 段 。 程 序 段 在 建立 时 , 键 
入 的 各 条 命令 并 不 立即 执行 ,只 有 等 程序 建立 完毕 ,并 被 系统 承 
认 以 后 ,才能 用 专门 的 标志 来 调用 。 程 序 内 的 命令 才 得 以 按 先后 
次 序 逐 条 执行 。 程 序 段 一 旦 建立 ,用 户 就 可 以 象 LOGO 命令 一 
样 来 使 用 这 种 自 定 义 命 令 。 这 样 的 程序 段 ,通常 称 之 为 “过 程 ”。 

建立 过 程 时 ,必须 向 系统 提供 以 下 信息 : 

1. 定义 过 程 的 标志 是 什么 

该 标志 应 表明 用 户 开始 定义 过 程 ,系统 对 随后 键入 的 各 项 
命令 不 再 立即 执行 。 

2. 过 程 的 名 字 是 什么 

过 程 的 名 字 就 是 程序 段 的 总 代表 。 它 可 以 由 字母 或 数字 组 
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成 ,但 必须 以 字母 开头 .过 程 名 中 不 能 含有 空格 、 括 号 或 运算 符 。 
过 程 名 也 不 能 与 LOGO 命令 相同 ,多 个 过 程 彼此 不 能 同名 。 

3. 是 否 提供 过 程 参数 

当 过 程 需要 同 外 界 交 换 信息 时 ,就 必须 提供 过 程 参数 。 参 数 
可 以 是 一 个 或 多 个 , 它 的 取 名 方法 同 过 程 名 一 样 . 不 同名 的 过 程 
中 参数 名 可 以 相同 ,同一 过 程 中 各 参数 不 能 同名 。 建 立 过 程 时 提 
供 的 参数 称 为 形式 参数 ,简称 形 参 . 调 用 过 程 时 给 出 的 参数 称 为 
实在 参数 ,简称 实 参 。 

4. 过 程 体 包含 哪些 命令 

这 是 过 程 中 最 主要 的 部 分 ,完成 特定 的 操作 功能 就 靠 过 程 
体 。 因 此 ,要 用 到 的 全 部 命令 都 必须 在 过 程 体 中 给 出 。 

5. 过 程 的 结束 标志 

过 程 定 义 完 毕 , 通 常 应 给 出 结束 标志 ,以 示 该 过 程 到 此 为 


12. 1. 2 过程 的 结构 与 建立 方法 


1. 过 程 的 结构 
格式 :TO 〈 过 程 名 《参数 1》 (参数 2》…… (参数 n)》 
过程 体 》 
END 

作用 :人 允许 建立 一 个 过 程 。 

TO :定义 过 程 的 标志 。 

过 程 名 :用 户 为 过 程 取 的 名 字 。 注 意 取 名 要 便于 记忆 ,一 般 
有 两 种 方案 :一 是 用 该 过 程 功能 的 英文 单词 或 缩写 来 命名 ,二 是 
用 汉语 拼音 或 拼音 字 头 来 表示 ,当然 也 可 以 任 取 一 个 名 字 。 

参数 :根据 需要 而 定 , 可 有 可 无 ,可 多 可 少 . 没 有 参数 的 过 程 
称 为 “无 参 过 程 ”无 参 过 程 只 能 完成 单一 的 绘图 .计算 或 分 析 工 
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作 。 带 参数 的 过 程 称 为 “有 参 过程 ”, 参 数值 的 改变 ,有 时 会 影响 
过 程 的 功能 。 

过 程 体 :通常 是 为 完成 某 种 操作 的 一 组 LOGO 命令 。 当 然 
可 以 包括 定义 了 的 其 它 过 程 ( 即 过 程 嵌 套 ) ,还 可 以 包含 过 程 本 
身 ( 即 过 程 递 归 ) 。 

END :过 程 定 义 完 毕 的 结束 标志 。 

2. 过 程 的 建立 方法 

在 键入 TO (过 程 名 〉 (参数 1) (参数 2)…… 后 ( 若 没有 参 
数 ,只 需 键 入 过 程 名 ) , 散 回 车 键 , 则 提示 符 由 “?? 换 成 “)”, 表 示 
系统 进入 过 程 定义 状态 ,这 时 就 可 以 键入 过 程 体 中 的 各 条 命令 
了 (此 后 ,每 行 的 提示 符 均 为 “)”) 。( 固 化 LOGO 过 程 建 立 与 编 
辑 相 同 , 见 12. 5. 2) 。 

当 命 令 输入 完毕 ,换行 后 键入 END ,再 融 回 车 键 ,屏幕 显示 
出 “( 过 程 名 》 DEFINED?” 字 样 , 表 示 过 程 已 经 定义 完毕 , 随 之 提 
示 符 变 为 “?”, 表 示 定 义 的 过 程 已 被 系统 承认 .这样 , 此 过 程 就 可 
以 象 LOGO 命令 一 样 随 时 调用 ,相当 于 系统 中 增加 了 一 条 新 的 
命令 。 


12. 2 ”无 参 过 程 和 有 人 参 过 程 


12. 2.1 无 参 过 程 


仍 以 绘制 正方 形 为 例 。 
例 1. 用 无 参 过 程 来 编写 绘制 正方 形 图 形 的 程序 。 这 里 只 需 
要 将 前 面 的 命令 序列 “ 戴 帽 穿 凌 ? 即 可 。 
TO DB (“ 戴 由 2) 
>CS 
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>PU SETPOS [L-10 10]PD 
REPEAT 4[FD 80 LT 90]] 
END (“ 穿 鞭 ”) 
当 键 入 ENDw 后 ,屏幕 显示 :“DB DEFINED” 字 样 ,表示 以 
“DB” 命 名 的 过 程 已 定义 ,并 被 系统 承认 ,然后 出 现 提示 符 “?”。 
在 “?" 后 面 键入 DB ,系统 将 调用 DB 过 程 ,并 按 该 过 程 体 
中 命令 的 顺序 依次 执行 : 清 屏 复 位 ~ 海龟 调 动 -> 画 正方 形 -> 售 
止 。 从 而 在 屏幕 上 连续 地 、 自 动 地 画 出 一 个 正方 形 。 绘 图 完毕 ， 
提示 符 出 现在 文本 第 一 行 ( 混 显 方式 ) 。 
若 再 次 键入 DB , 则 系统 又 执行 一 次 上 述 过 程 , 画 出 同一 
个 正方 形 . 显 然 , 过 程 一 经 定义 ,根据 需要 可 随时 多 次 调用 ,这 相 
当 于 在 LOGoO 的 命令 中 增加 了 一 个 在 固定 位 置 绘制 固定 长 度 的 
正方 形 图 形 的 专用 命令 ,这 个 命令 的 名 字 就 叫 *DB”。 
例 2. 编写 一 个 绘制 五 角 星 的 过 程 。 五 角 星 的 几何 关系 见 图 
[25 
TO W 
CS RT 18 
>REPEAT 5LFD 60 RT 144] 
>END 
定义 完毕 ,键入 Wu ,屏幕 上 就 
自动 绘 出 一 个 五 角 星 ,如 图 12. 2。 
从 以 上 二 例 可 以 看 出 ,用 无 参 过 
(0,0) 程 只 能 绘制 固定 边 数 、 固 定 边 长 和 固 
定位 置 的 固定 图 形 。 若 欲 绘制 能 够 变 
化 长 度 、 位 置 等 的 图 形 ,势必 要 同时 定义 相当 多 的 无 参 过 程 ,这 
显然 是 很 不 方便 的 ,甚至 是 不 可 能 的 。 
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12. 2. 2 ”有 参 过 程 


所 谓 有 参 过 程 , 即 是 把 过 程 中 各 项 命令 的 某 些 参数 用 形式 
参数 来 表示 , 置 于 过 程 名 之 后 。 当 执行 过 程 时 由 用 户 临 时 输入 该 
参数 的 值 ,这 样 当 输入 的 值 不 同时 ,得 到 的 结果 就 不 一 样 ,从 而 
大 大 地 扩充 了 过 程 的 功能 。 

例 3. 编写 能 够 绘制 各 种 正 多 边 
形 的 有 参 过 程 。 

TO DB1 :A:B 

CS 

>PU SETPOS [-10 10] PD 

REPEAT : ALFD :BLT360/ :Al] 

END 

过 程 “DB1” 定 义 完 毕 , 其 中 : A 
表示 正 多 边 形 的 边 数 ， 

: B 表示 边 长 。 在 调用 这 个 过 程 时 , 必 
须 以 实在 参数 替换 过 程 中 的 形式 参数 。 如 : 
? DB1560c 屏幕 上 显示 出 一 个 边 长 为 60 的 正 五 边 


形 , 如 图 12. 8 


(Pb) 
图 12. 3 绘制 各 种 正 多 边 形 
? DB1 8 35w 屏幕 上 显示 出 一 个 边 长 为 35 的 正八 边 形 ， 
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图 12. 2 


(c) 


如 图 12. 3Cb) 所 示 。 

? DB1 12 25w“ 屏幕 上 显示 出 一 个 边 长 为 25 的 正 十 二 边 
形 ,如 图 12. 3(c) 所 示 。 

由 此 可 见 , 给 出 不 同 的 参数 值 , 就 能 得 到 不 同 的 正 多 边 形 。 
读者 不 妨 自己 试 一 试 。 

LOGoO 的 过 程 具有 很 大 的 魔力 ,只 要 稍稍 改变 一 下 参数 的 
实际 值 , 就 可 能 获得 意 想 不 到 的 效果 。 但 在 使 用 有 人参 过 程 时 ,要 
注意 : 

@ 形 式 参 数 之 前 一 定 要 加 冒号 ”:”, 而 且 冒 号 与 参数 之 间 不 
能 留 有 空格 。 

四 过 程 名 与 形 参 , 形 参与 形 参 之 间 都 必须 用 空格 隔 开 。 

图 当 执行 有 参 过 程 时 , 实 参与 形 参 在 个 数 、 位 置 和 顺序 上 必 
须 一 一 对 应 。 替 换 时 , 实 参 前 不 用 冒号 ”:”。 

上 面 的 有 参 过 程 是 在 指定 位 置 上 开始 绘图 的 , 若 欲 在 任意 
位 置 开 始 绘图 ,可 增加 变动 位 置 的 参数 。 

例 4. 在 任意 位 置 开 始 绘制 正 多 边 形 。 

TO DB2 :X:Y:A:B 

CS 

PU SETPOS SE :X:YPD 

)REPEAT : A[FD :BELT360/:A] 

END 

此 过 程 与 过 程 DB1 的 区 别 在 于 运行 时 必须 用 四 个 实 参 来 
代替 对 应 的 形 参 , 其 中 : X、: Y 为 起 始点 的 位 置 坐 标 。 如 : 

? DB2 一 50 0 8 35w/ 

注意 观察 绘图 过 程 及 其 与 DB1 绘图 的 区 别 。 

“DB2? 过 程 体 中 出 现 的 命令 “SETPOS，SE”。 可 当 作 另 一 条 
纵横 坐标 绘图 命令 使 用 。 此 命令 后 面 的 二 个 参数 至 少 有 一 个 是 
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形 参 ,而 且 二 个 参数 外 面 不 再 用 方 括号 ,这 是 由 APPLE-LOGO 
本 身 的 特点 决定 的 ,固化 LOGO 无 此 规定 。 使 用 时 注意 SETPOS 
与 SE 之 间 必 须 用 空格 隔 开 。 同 样 , 对 于 纵横 坐标 打点 命令 ,也 
如 此 处 理 。 


12.3 过 程 的 内 套 


1. 无 参 过 程 的 府 套 

第 十 一 章 中 用 到 了 重复 命令 ,如 果 把 每 一 个 重复 命令 中 的 
重复 部 分 写成 一 个 过 程 , 那 末 重复 命令 的 供 套 , 即 变 成 了 过 程 的 
隐 套 。 

例 5. 编写 绘制 第 十 一 章 介绍 过 的 长 方形 和 风车 图 形 的 过 
各 ( 为 简洁 起 见 , 过 程 定义 提示 符 “)" 略 去 )。 

建立 绘制 长 方形 的 过 程 ; 

TO CF1 

REPEAT 2[FD 80 RT 90 FD 40 RT 90] 

END 

建立 绘制 风车 的 过 程 ， 

TO FC1 

REPEAT 4[CF1 RT 90] 

END 

定义 完毕 ,运行 过 程 <CF1”, 可 得 一 长 方形 ,运行 过 程 “FC1” 
可 得 风车 图 形 。 

在 过 程 “FC1* 中 ,用 到 一 个 新 命令 “CEF1”, 它 实际 上 是 一 个 
夯 长 方形 的 过 程 名 。 

过 程 一 旦 定义 ,就 可 以 当 作 一 条 命令 使 用 ,这 条 命令 具有 它 
所 定义 的 过 程 体 中 所 包含 的 全 部 基本 命令 功能 , 既 可 以 独立 使 

。，242。 


用 ,也 可 以 被 调用 。 

例 6. 绘 一 个 正在 “转动 ”的 风车 。 

To ZD 

FC1 

PU FD 95 PD RT.90 BK 6 

REPEAT 4[H PU H PD] 

END 

此 过 程 中 尚 嵌 有 一 个 新 过 程 “H”。 

TO H 

REPEAT 5[FD 95x 3.14/20 RT 9] 

END 

我 们 又 建立 了 过 程 “H” 和 过 程 “ZD”。 在 过 程 “ZD” 中 姐 有 
“Fcl” 和 “H” 二 个 过 程 , 而 过 程 “Fcl1” 中 还 嵌 有 过 程 “CF1”。 请 运 


? FCL 运行 结果 如 图 12. 4 
? CS ZDx 运行 结果 如 图 12. 5 
es 
图 12.4 风 车 图 图 12. 5 旋转 的 风车 
注意 : 
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中 过 程 谋 套 可 以 多 层 , 系 统 在 执行 过 程 时 ,依次 按 顺 序 运 
行 。 当 遇 到 内 套 的 过 程 时 ,就 去 执行 嵌 套 的 过 程 , 执 行 完毕 再 返 
回 继续 依次 向 下 执行 。 

@ 霸 套 的 过 程 , 必 须 先 定义 ,后 使 用 。 

无 参 过 程 的 舱 套 ,虽然 使 绘图 功能 大 大 提高 了 一 步 , 但 仍然 
只 能 绘制 固定 的 图 形 ,为 此 ,下 面 再 介绍 有 参 过 程 的 嵌 套 。 

2. 有 参 过 程 的 嵌 套 

有 参 过 程 的 嵌 套 与 无 参 过 程 的 对 套 相似 。 

例 7. 编写 绘制 长 方形 和 风车 图 形 的 有 参 过 程 。 

TO CF2 : M 

REPEAT 2[FD :MRT90FD :M/2RT90] 

END 


TO FC2 :M :N 
REPEAT : NICF2 :MRT360/:N] 
END 
上 述 有 参 过 程 中 的 形式 参数 : M 表示 长 方形 的 长 ,，: N 表 
示 长 方形 的 旋转 的 次 数 ( 即 风车 叶片 数 )。 请 运行 : 
? FC2 60 3w/ 运行 结果 见 图 12. 6(a) 。 
? CS FC2 60 5w” 运行 结果 见 图 12.6(b) 。 
? CS FC2 60 8w” 运行 结果 见 图 12. 6(c) 。 
? CS FC2 60 12w。 运行 结果 见 图 12.6(d) 。 
注意 :运行 时 ,实在 参数 的 个 数 和 位 置 必须 和 过 程 的 形式 参 
数 一 一 对 应 。 
例 8. 编写 绘制 带 圆 弧 的 图 形 。 
TOYH :A :B 
REPEAT :ALFD :BRTI10] 
END 
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TOHYIL :A :B :C :D 
REPEAD : CLYH :A :BLT :D] 
END 


TO HY2 :A :B :CC :D 
REPEAT : CULYH :A :BREPEAT :ALLT 10BK :B]LT :D] 
END 


管 


(a) (D) 


(C) (ad) 
图 12.6 长 方形 和 风车 的 旋转 
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过 程 “YH" 用 来 画 圆 弧 , 当 : A 王 36 时 ,为 圆 形 。 过 程 “HY1? 
用 来 画 旋转 圆 形 ，: C 为 旋转 圆 ( 圆 弧 ) 的 个 数 ，: D 为 每 次 旋转 
的 度数 。 过 程 <HY2? 用 来 画 旋转 圆 弧 ,与 过 程 "HT1? 的 区 别 是 ， 


外 
下 
| 


图 12.7 图 12.8 
每 画 完 一 段 圆 弧 后 ,要 沿 原 路 退回 到 原 地 ,再 旋转 。 
试 运行 以 上 过 程 : 

? YH 36 10 ws 

? YH 36 8i/ 

? YH 36 6 kw 

运行 结果 见 图 12.7 

? CSHYL 30 6 3 60w/ 

运行 结果 见 图 12. 8。 

? CSHYIL 36 5 6 60w 

运行 结果 见 图 12. 9 。 

?CS HY2 14 5 12 30c/ 

运行 结果 见 图 12. 10。 

以 上 过 程 , 仅 仅 改 变 了 某 些 参 数 的 值 , 就 使 得 绘 出 的 图 形变 
得 多 姿 多 态 , 已 足见 LOGO 的 绘图 能 力 了 。 如 果 再 用 上 LOGO 
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过 程 的 递归 功能 , 才 会 真正 显示 出 它 的 神奇 谭力 呢 ! 


图 12.9 图 12. 10 


12.4 递归 过 程 


12.4.1 什么 叫 递 归 


我 们 已 经 知道 ,一 个 过 程 可 以 调用 另 一 个 过 程 , 那 末 过 程 能 
否 调用 自身 呢 ? 当然 可 以 。 这 种 在 过 程 体 中 又 出 现 调用 自身 的 
情况 , 称 为 过 程 的 递归 。 如 果 一 个 过 程 段 中 调用 了 自身 ,这 称 为 
过 程 的 递归 调用 。 人 允许 递归 调用 的 过 程 , 称 为 递归 过 程 。 

递归 过 程 的 建立 方式 很 简单 ,就 是 在 有 参 过 程 结束 前 ( 即 
END 之 前 ) ,将 该 过 程 名 及 所 带 的 全 部 形式 参数 重 写 一 次 即 可 。 

例 9. 画 长 方形 的 递归 过 程 。 

TO CF3 : M 

REPEAT 2[FD : M RT 90 FD : M/2 RT 90] 

CF3 : M (递归 调用 ) 
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END 

现在 来 看 这 个 递归 过 程 的 执行 情况 
运行 开始 , 先 执行 过 程 体 中 的 第 一 条 命令 一 画 出 长 方形 ,长 方形 
画 完 后 ,过 程 并 末 结 束 , 而 是 又 执行 一 次 该 画图 过 程 , 如 此 反复 。 
从 屏幕 上 可 以 看 到 海龟 将 不 知 疲倦 的 反复 绘制 同一 图 形 。 

一 个 递归 过 程 ,如 果 只 是 能 够 反复 执行 同样 参数 的 过 程 , 画 
出 同一 个 图 形 ,意义 显然 不 大 。 若 将 递归 调用 的 参数 ,每 次 调用 
时 改变 一 次 ,会 发 生 什么 情况 呢 ? 

例 10. 参数 值 变化 的 递归 过 程 。 

TO CF4 : M 

REPEAT 2[FD : MRT90EFD :M/2 RT 90] 

CEF4 : M 十 10 

END 

在 此 过 程 体 中 , 与 过 程 CF3 不 同 的 是 其 形式 参数 : M 在 递 
归 调 用 时 加 上 了 一 个 增 量 。 当 过 程 第 一 次 运行 时 ,其 对 应 的 参数 
为 MC: M 的 实在 参数 值 ) ,而 第 二 次 运行 时 ,对 应 的 参数 是 : M 
十 10, 即 将 原 输入 的 实在 参数 值 自 动 地 加 上 增 量 ,然后 再 重复 执 
行 幅 过 程 。 键 入 : 

? CF4 30k/ 

从 运行 可 以 看 到 ,每 运行 一 次 ,长 方 
形 的 边 长 就 长 大 一 点 ( 即 增 量 10) ,结果 
如 图 12. 11。 

显然 这 种 运行 不 会 停止 。 欲 让 运行 
停止 ,可 以 殴 Ctrl 十 G 键 , 强 行使 之 停 
止 ,也 可 以 在 过 程 中 使 用 条 件 语 句 ( 见 
12. 4. 3) 令 其 停止 。 图 12.11 

如 果 我 们 在 上 述 过 程 中 ,再 加 入 一 
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个 转向 命令 ,就 会 发 现 , 我 们 所 绘 的 长 方形 将 会 一 边 长 大 ,一 边 
旋转 。 

例 11. 绘制 正在 长 大 和 旋转 的 长 方形 。 

TO CEF5 :,M 

REPEAT 2[FD : M RT 90 FD : M/2 RT 90] 

RT 30 

CF5 : M 十 10， 

END 

试 键 入 : 

? CEF5 20i7 

运行 结果 见 图 12. 12。 

由 以 上 实例 可 知 * 实 现 过 程 
的 递归 功能 ,就 是 在 过 程 体 结束 
前 的 适当 位 置 ,调用 自身 ,并 可 改 
变 某 些 形式 参数 的 值 。 


12.4.2 递归 过 程 实 例 


例 12. 旋涡 线 。 图 12.12 长 方形 的 长 大 和 旋转 
TO XW1 :A :B 


FD :ART :B 

XW1 : A 十 3 :B 

END 
运行 此 过 程 : 
?CSXW1 0 90x， 见 图 12. 13(a) 。 
? CSXW1 0 72i， 见 图 12.13Cb) 。 
? CSXW1I 0 118i ， 见 图 12. 13(c) 。 
? CSXW1 0 190w ， 见 图 12. 13(d) 。 
每 次 运行 ,自动 改变 的 是 前 进 的 步 长 ,而 转角 不 同 。 
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图 12. 13 旋涡 线 的 变化 
例 13. 步 长 固定 ,自动 改变 转角 的 曲线 图 形 。 


TO XW2 :A :B 

FD :ART :了 B 

XW2 :A :了 B 十 10 
END 

运行 此 过 程 : 

? CSXW2 10 3k/ 
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? CSXW2 10 5 


1 
15 2i/ 


15 


? CS XW2 
? CS XW2 


图 12.14 曲线 图 
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运行 结果 见 图 12. 14(a) 一 (d) 。 注 意 : 

四 当 图 形 超过 边界 时 ,会 造成 图 形 错乱 , 若 准备 打印 该 图 
形 ,要 及 时 按 下 Ctrl 二 G 键 , 强 行 停止 运行 。 

四 每 次 重 绘图 形 时 ,请 用 “cs?” 命 令 清 屏幕 ,以 后 的 示例 中 ， 
不 再 书写 CS” 命令。 

12. 4.3 递归 过 程 的 停止 


除 用 CTRK 十 G 键 强行 停止 递归 过 程 的 运行 外 ,最 好 在 过 
程 体 中 用 条 件 语句 来 自动 控制 递归 过 程 的 运行 。 

1. 条 件 语句 

格式 :IE (条 件 》 THEN [ (命令 序列 )] 

作用 :如 果 满 足 条 件 , 那 么 就 执行 语句 中 指定 的 命令 序列 ， 
如 果 不 满足 条 件 , 则 执行 该 条 件 语 句 的 后 继 命令 。 

其 中 条 件 一 般 是 由 关系 运算 符 ()、《、 王 ) 所 构成 的 关系 表达 
式 。 命 令 序列 中 可 以 是 多 个 命令 或 过 程 的 集合 “THEN”? 为 待 选 
项 ,可 以 不 写 。( 固 化 LOGO 为 正 〈 条 件 》THEN (命令 序列 ) 。 

2. 停止 命令 

格式 :STOP 

作用 :此 命令 用 来 停止 过 程 的 执行 ,一 般 同 条 件 语句 联 用 。 

例 14. 按 条 件 停止 的 递归 过 程 。 

TO CF6 : M 

IF : M>>100 [STOP] 

REPEAT 2[FD : M RT 90 FD : M/2 RT 90] 

RT 30 

CF6 : M 十 10 

END 

此 过 程 同 过 程 CF5, 仅 增加 了 条 件 停止 语句 。 
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? CE6 30w/ 
可 以 看 到 当 图 形 增加 到 指定 大 小 (: M>100) 时 ,过 程 会 自 
动 停止 运行 。 
此 过 程 的 停止 条 件 , 也 可 以 利用 控制 转动 角度 的 大 小 来 实 
现 。 
例 15. 用 转角 条 件 实 现 停止 的 递归 过 程 。 
TO CF7 :M :N 
IF : N>270[STOP] 
REPEAT 2[FD : M RT 90 FD : M/2 RT 90] 
RT : N 
CEF7 : M 十 10 : N 十 30 
END 
?CE7 30 20w/ 
此 过 程 运行 时 , 当 图 形 转 到 指定 位 置 (: N 之 270) 时 ,过 程 
即 会 自动 停止 执行 。 注 意 : 
@@ 条 件 语 句 中 的 各 部 分 必须 写 在 同一 行 中 ,不 能 人 为 换行 ， 
一 行 写 不 下 时 ,系统 会 自动 换行 。 
@ 条 件 语句 不 能 单独 使 用 ,必须 置 于 程序 之 中 。 


12.5 过 程 的 修改 与 编辑 


12. 5.1 定义 过 程 时 的 出 错 修改 


定义 过 程 时 出 现 的 错误 ,有 两 种 可 能 ， 
人 定义 中 发 现 当 前 行 出 错 , 可 用 “< ?” 键 ,将 光标 退回 到 出 错 
处 ,重新 输入 正确 字符 即 可 .这 种 方式 ,在 光标 退回 时 ,将 清除 掉 
沿途 的 正确 字符 。 所 以 还 可 以 用 CTRL 十 B 控制 键 来 实现 光标 退 
回 , 它 可 以 保留 光标 经 过 的 字符 不 被 清除 。 当 键入 正确 字符 时 ， 
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保留 字符 自动 右 移 。 
包 定 义 过 程 在 换行 后 发 现 前 面 出 错 ,或 者 在 定义 后 运行 时 
发 现 出 错 , 则 只 有 使 系统 进入 编辑 状态 后 方 能 进行 修改 。 


12..5. 2 在 编辑 状态 下 修改 过 程 


1. 进入 编辑 状态 
格式 ;EDIT/ED "( 过 程 名 》 
(固化 LOGO 为 ED (过 程 名 ) 

作用 :使 过 程 处 于 编辑 状态 。 

键入 ED "( 过 程 名 ), 然 后 裔 回 车 键 , 清 屏幕 并 使 给 定 过 程 
的 程序 段 显示 在 屏幕 上 ,允许 进行 修改 。 注 意 : 

使 用 “ED2? 命 令 时 ,过 程 名 前 必须 加 双 引 号 “"”, 而 过 程 名 后 
又 不 能 带 引 号 ,这 种 格式 在 后 面 介绍 的 过 程 的 调 阅 .清除 和 读 写 
时 都 如 此 。( 固 化 LOGO 除 读 写 外 , 均 不 加 此 双 引 号 ) 。 

2. 删除 字符 控制 键 
利用 如 下 的 光标 控制 键 ,可 以 删 去 过 程 中 的 字符 。 

ctri 十 D: 删 除 光 标 处 字符 , 右 端 字符 依次 左 移 一 格 。 

Ctrl 十 K: 删 去 该 行 光 标 所 在 处 右 端的 全 部 字符 (包括 自动 
换行 字符 ) 。 

殷 键 : 左 移 光标 , 即 删 去 光标 左 侧 字 符 ( 固 化 LOGO 为 ESC 
键 ) 。 

3. 光标 移动 控制 键 

Ctrl 十 P: 光 标 上 移 一 行 。 

Ctrl 十 N: 光 标 下 移 一 行 。 

Ctrl 十 A :光标 移 到 所 在 行 行 首 。 

Ctrl 十 蕊 :光标 移 到 所 在 行 行 尾 。 

Ctrl 十 B: 左 移 光标 (不 删除 字符 ) 。( 固 化 LOGO 为 扎 键 ) 
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[> 键 : 右 移 光标 ( 不 删除 字符 ) 。 

Cel 十 0: 将 光标 所 在 行 下 移 , 留 出 一 个 空 行 , 光 标 留 在 空 行 
行 首 。 
空格 键 : 光 标 连同 光标 处 字符 一 起 右 移 ,相当 于 在 行 中 插入 
空格 。 

回 车 键 :将 光标 右 侧 字符 连同 光标 一 起 , 移 到 下 行 。 

4. 修改 或 编辑 

也 插入 新 行 

将 光标 移 到 待 插入 新 行 的 行 首位 置 (可 用 Ctrl 十 P 或 Ctrl 十 
N 与 Ctrl 十 A 实现 ), 再 用 Ctrl 十 O 使 该 行 下 移 而 空 出 一 个 新 行 ， 
键入 待 插入 的 字符 行 。 

@ 删 除 一 行 

将 光标 移 到 待 删 行 的 行 首 , 用 CTRL 十 K 即将 该 行 字符 全 
部 删 去 (包括 自动 换行 部 分 ) 。 

@@ 插 入 空格 

将 光标 移 到 需 插 入 空格 处 右边 一 个 字符 上 , 殴 空 格 键 。 

和 由 插 入 新 字符 

将 光标 移 至 需 揪 入 新 字符 处 的 右边 一 个 字符 上 ,直接 键入 
新 字符 ,原来 光标 右 侧 字符 自动 右 移 。 

@ 删 除 字符 

将 光标 移 至 需 删 除 字符 处 , 殴 CTRL 十 D 键 , 就 可 去 掉 该 字 
符 ,光标 右 侧 的 字符 自动 递 推 补 位 。 也 可 将 光标 移 至 需 删除 的 字 
符 右 侧 , 胡 急 键 ,同样 可 以 删 去 该 字符 。 

5. 退出 编辑 状态 

修改 .编辑 完毕 , 敲 CTRL 十 C, 保存 修改 后 退出 编辑 状态 ， 
屏幕 显示 “( 过 程 名 》 DEFINED? 字 样 , 重 新 出 现 提 示 符 “?”, 过 程 
的 编辑 即 告 结束 。 
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若 修 改 . 编 辑 完毕 ,和 欲 撤消 修改 并 维持 原来 过 程 内 容 的 话 ， 
可 驻 CTRL 二 G 键 退 出 , 则 屏幕 上 只 出 现 提示 符 , 说 明 修 改 无 
效 。 注 意 : 

由 在 编辑 状态 下 ,也 可 以 定义 过 程 , 由 于 这 种 状态 下 便于 随 
时 修改 ,实际 定义 过 程 中 多 用 此 法 。 

四 不 能 修改 过 程 名 , 若 修改 了 过 程 名 而 不 修改 过 程 体 时 . 则 
在 退出 编辑 后 ,系统 中 将 会 出 现 同 过 程 体 而 不 同 过 程 名 的 两 个 
过 程 。 


12.6 过 程 的 调 阅 与 清除 


1. 过 程 调 阅 
@ 调 阅 过 程 名 
格式 :POTS 
作用 :屏幕 用 全 文本 显示 方式 ,显示 系统 中 全 部 的 过 程 名。 
@@ 调 阅 单 个 过 程 内 容 
格式 :PRINTOUT/PO "过程 名 》 
(固化 LOGO 为 PO 〈 过 程 名 >) 
作用 :屏幕 显示 该 过 程 的 全 部 内 容 ( 不 能 修改 ) 。 
图 调 阅 全 部 过 程 内 容 
格式 :POALL 
(固化 LOGO 为 PO ALL) 
作用 :屏幕 上 依次 显示 系统 中 全 部 过 程 的 内 容 。 
在 显示 中 , 散 Ctrl 十 W 可 暂停 显示 ,再 敲 任意 键 , 又 可 继续 
显示 后 继 过 程 。 
2. 过 程 清 除 
中 清除 指定 过 程 
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格式 :ERASE/ER (过 程 名 》 
(固化 LOGO 为 ER 〈 过 程 名 )) 
作用 :将 指定 过 程 从 系统 中 清除 ,清除 后 可 用 命令 ^POTS? 
观察 。 
QQ 清除 全 部 过 程 
格式 :ERALL 
(固化 LOGO 为 ER ALL) 
作用 :清除 系统 中 的 全 部 过 程 , 使 用 时 要 慎重 。 此 命令 还 可 
以 用 作 ” 清 内 存 ”。 
图 清除 部 分 过 程 
格式 :ER[(A 过 程 和 名 》(B 过 程 名 )……] (固化 LOGO 无 ) 
作用 :清除 方 括号 中 指定 的 若干 过 程 。 


12.7 过 程 的 存盘 与 读 入 


对 于 有 用 的 过 程 ,有 必要 用 存盘 命令 把 它 存 入 软盘 保留 下 
来 ,以 便 经 常 使 用 。 
1. 存盘 命令 
格式 :SAVE "( 文 件 名 》 
作用 ;将 内 存 中 的 所 有 过 程 存 入 磁盘 。 
_LoGo 的 存盘 特点 是 用 任意 一 个 文件 名 ,就 可 以 把 系统 内 
存 中 的 全 部 过 程 一 次 存 入 ,磁盘 上 记录 的 是 文件 名 ,该 文件 中 包 
括 了 当前 内 存 中 的 全 部 过 程 。 文 件 名 的 取 名 同 过 程 名 取 名 一 
样 。 
注意 ， 
@ 每 次 存盘 时 所 取 的 文件 名 彼此 不 能 相同 ,否则 屏幕 将 显 
示 出 错 信 息 ,表示 磁盘 中 已 有 该 文件 ,不 再 接收 。 
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四 将 已 经 存盘 的 过 程 调 出 使 用 时 , 若 在 内 存 中 又 建立 了 若 
干 新 的 过 程 , 则 将 新 过 程 存 盘 时 ,会 把 旧 过 程 再 一 次 存 入 ,从 而 
多 占 了 磁盘 存储 区 .为 此 在 新 过 程 存盘 时 ,应 先 清除 内 存 中 的 旧 
过 程 。 清 除 时 , 千 万 不 要 用 ERALL 命令 ,以 免 将 新 过 程 一 起 清 
掉 , 因 为 ERALL 要 清 内 存 。 建 议 采 用 如 下 方式 处 理 : 先 用 POTS 
调 阅 过 程 名 ,再 用 清除 部 分 过 程 的 命令 ( 见 12. 6-2-@@) ,将 旧 过 
程 删 去 。 

2. 读 盘 命令 

格式 :LOAD "文件 名 》 

作用 :将 磁盘 上 指定 的 文件 名 所 包括 的 全 部 过 程 读 入 内 存 ， 
文件 名 必须 是 磁盘 中 已 有 的 。 当 文件 名 不 符 时 ,将 显示 出 错 信 
息 ,为 此 系统 提供 了 查阅 磁盘 文件 目录 的 命令 。 

3. 列 磁 盘 文 件 目录 

格式 :CATALOG 

作用 :在 屏幕 上 显示 出 磁盘 中 所 存 的 全 部 文件 的 名 字 。 

例 16. 显示 磁盘 文件 目录 。 

? CATALOGw ”屏幕 显示 : 

T 12 HDQ ,LOGO 

T 16 HCQ .LOGO 

T 8 LX .LOGO 

其 中 “T?” 表 示 文 本 文件 ,后 面 的 数字 表示 该 文件 在 磁盘 中 
占用 的 扇 区 数 ,数字 之 后 是 文件 名 ,文件 名 后 的 “. LOGO"? 为 文件 
的 扩展 名 ,表示 该 文件 属 LOGO 文件 。 在 存盘 和 读 盘 时 , 均 不 需 
键入 “.LOGO” 字 符 。 

4. 删除 磁盘 文件 

格式 :ERASEFILE "( 文 件 名 》 

作用 :将 磁盘 中 指定 的 文件 删除 。 使 用 时 ,要 慎重 ,避免 删 去 
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有 用 的 文件 。 建 议 在 删除 某 文件 之 前 ,最 好 用 该 盘 命令 先 将 该 文 
件 读 入 内 存 , 然 后 再 删除 , 若 发 现 删 除 错 了 ,还 可 以 将 读 入 内 存 
中 的 文件 重新 写 盘 。 

前 面 介 绍 的 过 程 和 图 形 的 存 取 是 针对 APPLE-LOGO 而 言 
的 ,对 于 固化 LOGO, 所 用 命令 稍 有 不 同 。 如 果 要 在 固化 LOGO 
下 进行 过 程 和 图 形 的 存 取 , 必须 这 样 操作 : 

人 启动 方式 

先 用 DoS 启动 中 华 学 习 机 ,使 之 处 于 “]? 状 态 , 再 敲 入 : 

]MAXEFILE 1w/ 

]LGc 

这 样 ,固化 LOGO 就 有 存 取 功 能 了 。 

四 存 取 命令 格式 

SAVE "过程 文件 名 ;一 一 过 程 存 盘 

READ ”过程 文件 名 一 一 将 过 程 读 入 内 存 

SAVEPICT "图形 文件 名 ;一 一 图 形 存 盘 (APPLE-LOGO 无 
此 命令 ) 

READPICT ”图形 文件 名 ;一 一 读 入 图 形 (APPLE-LOGO 无 
此 命令 ) 

CATALOG 一 一 列 磁 盘 目 录 

ERASEFILE "文件 名 ;一 一 删除 磁盘 文件 

ERASEPICT"( 图 形 文 件 名 ;一 一 删除 磁盘 图 形 文件 (AP- 
PLE-LOGO 无 此 命令 ) 


12.8 过 程 与 图 形 的 打印 


有 时 需要 将 程序 、 结 果 或 图 形 打印 在 宽 行 纸 上 , 这 就 要 用 到 
打印 命令 。 
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1. 联机 / 脱 机 命令 

格式 .PRINTER (1/0》 

(固化 LoGo 为 OUTDEV(1/0)) 

作用 :参数 为 “1”, 则 接 通 打印 机 * 使 之 处 于 等 待 状 态 。 参 数 
为 “0”, 则 断 开 打印 机 。 使 用 时 注意 此 命令 前 的 点 号 <^，”。 

2. 过 程 打印 命令 

中 打印 全 部 过 程 内 容 

格式 :POALL 

作用 :打印 出 内 存 中 的 全 部 过 程 内 容 。 

在 联通 打印 机 后 ,屏幕 上 的 提示 符 消 失 , 仅 剩 下 光标 ,此 时 
癌 入 POALLw ,就 能 自动 启动 打印 机 工作 ,从 而 打印 出 内 存 中 
的 全 部 过 程 。 打 印 时 ,屏幕 上 的 光标 消失 , 待 打 印 结束 方 重新 出 
现 。 

@@ 打 印 单个 过 程 内 容 

格式 :PO“( 过 程 名 》 

作用 :打印 内 存 中 已 有 的 指定 过 程 的 内 容 。 

图 打印 过 程 名 字 

格式 :POTS 

作用 :只 打印 内 存 中 全 部 的 过 程 名字 。 

以 上 三 条 过 程 打 印 命令 与 过 程 的 调 阅 命 令 对 应 相同 ,区 别 
仅 在 于 是 否 已 联通 打印 机 。 

3. 图 形 打印 命令 

格式 :CHAR 17 

作用 :打印 屏幕 上 显示 的 全 部 图 形 ( 相 当 于 屏幕 拷贝 ) 。 

打印 图 形 时 ,由 于 纵横 比例 的 影响 ,会 造成 某 些 图 形变 形 ， 
此 时 应 适当 修订 屏幕 纵横 比例 参数 。 

4. 打印 运行 结果 
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格式 ;PR 〈( 过 程 名 ) (实在 参数 1) (实在 参数 2》……) 
作用 :打印 运行 过 程 中 输出 的 数值 和 字符 。 

5. 打印 格式 的 设置 

格式 :.DEPOSIT 1913 〈X) 

1 正常 打印 

33 反 相 打印 

65 正常 放大 打印 


97 反 相 放大 打印 
开机 后 , 若 不 使 用 此 命令 , 则 打印 机 自动 按 正 常 打印 方式 工 


作用 : 当 一 


12.9 彩色 绘图 


1. 屏幕 底 色 的 设置 

格式 :SETBG (X) (固化 LOGO 为 BG (X)) 

作用 :设置 屏幕 颜色 。 

其 中 X 为 颜色 代码 ,其 值 为 0 一 5 整数 ,与 X 值 对 应 的 颜 
色 如 下 ， 


X 值 ;0 1 2 3 4 5 

颜色 : 黑 白 绿 紫 黄 兰 

2. 画笔 颜色 的 设置 

格式 :SETPC 〈X》 (固化 LOGO 为 PC (X》 ) 
作用 :设置 画笔 颜色 。 

X 值 范围 及 其 对 应 的 颜色 同上 。 


3. 屏幕 底 色 与 画笔 颜色 的 配置 
当 屏幕 底 色 与 画笔 颜色 的 配置 不 同时 ,彩色 绘图 的 效果 是 
不 同 的 。 若 配置 不 当 , 甚 至 无 法 在 屏幕 上 显示 图 形 。 配 置 的 关系 
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见 表 12. 1， 

注意 ， 

@ 当 屏幕 底 色 与 画笔 颜色 相同 或 在 某 些 特殊 配置 时 ,屏幕 
上 显示 不 出 图 形 , 在 上 表 中 用 “X ?表示 。 

@ 开 机 后 ,自动 进入 彩色 绘图 状态 ,屏幕 底 色 设 为 黑色 , 画 
笔 设 为 白色 。 

图 当 使 用 单 色 显示 器 或 黑白 电视 机 时 ,无 彩色 显示 ,但 可 以 
观察 到 灰 度 变化 。 


例 17. 变 底 色 过 程 。 
TO DS :X 

IF : X>5 [STOP] 
SETBG : X 

WAIT 50 

DS :X 十 1 

END 

? DS 0 上 (观察 运行 中 屏幕 底 色 的 变化 ) 

改变 画笔 颜色 ， 

TO BS : X 

IF : X>>5 [STOP] 
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SETBG 0 SETPC : X 

FD 30 RT 60 

WAIT 50 

BS : X 十 1 

END 

? BS 0 

观察 绘图 中 各 线段 颜色 的 变化 ,并 想 一 想 为 什么 第 一 段 线 
段 没 有 显示 ? 


12.10 图 形 的 按 抹 


在 屏幕 上 绘制 的 若干 图 形 中 ,发 现 有 的 图 形 是 错误 的 ,怎么 
办 ? 是 全 部 清除 再 从 头 绘制 ,还 是 只 将 错误 的 图 形 单独 控 掉 ? 显 
然 应 该 选择 后 者 。 下 面 介绍 图 形 控 抹 的 方法 。 

我 们 已 经 知道 , 当 画 笔 颜 色 与 屏幕 底 色 相同 时 ,画笔 绘图 就 
不 能 显现 出 图 形 , 若 使 画笔 再 次 经 过 已 绘 好 的 图 形 时 ,还 会 把 其 
所 到 之 处 的 图 形 控 掉 。 基 于 上 述 现象 ,我 们 只 要 在 画笔 与 屏幕 底 
色相 同时 ,使 画笔 再 执行 一 次 原 过 程 , 就 可 以 达到 把 原 图 控 掉 的 
目的 。 

例 18. 观察 擦 图 现象 。 

试 运行 过 程 “FC12?( 见 12.3 例 5)。 

? FC1 必 (屏幕 显 示 一 风车 图 形 ) 

现 欲 扩 掉 此 图 ,请 键入 : 

? PU HOME PDw/ 

? SETPC 0 

? FC1 (观察 图 形 的 控 抹 ) 

注意 ， 
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中 上 述 过 程 运 行 时 对 应 的 屏幕 底 色 代码 X= 0, 和 否则 要 调整 
命令 “SETPC” 后 面 的 参数 X 的 值 。 

包 控 图 完毕 ,要 及 时 改变 画笔 颜色 ,以 备 运行 其 它 过 程 , 否 
则 再 画 的 图 形 同 样 显现 不 出 来 。 

利用 上 述 方法 ,还 可 以 使 所 绘图 形 在 运行 中 出 现 “ 闪 烁 ?或 

例 19. 闪烁 的 圆 点 。 

TO SS 

HT SETPC 1 DOT [0 0] 

WAIT 20 SETPC 0 DOT [0 0] 

SS 

END 

运行 此 过 程 , 可 以 看 到 在 坐标 原点 处 ,有 一 个 闪烁 的 亮点 。 

例 20. 移动 的 小 球 。 

TO DQ 

SETPC 1 RT 45 

REPEAT 4[FD 2 LT 90] 

WAIT 20 SETPC 0 

REPEAT 4[FD 2 LT 90] 

LT 45 FD 5 

DQ 

END 

运行 此 过 程 , 可 以 看 到 从 坐标 原点 处 开始 ,有 一 个 不 断 向 上 
移动 的 小 圆 球 。 

前 面 几 个 过 程 用 到 一 条 新 命令 : WAIT (X) ,此 命令 的 作用 
是 延 时 , 延 时 的 长 短 由 X 的 值 大 小 决定 。( 固 化 LOGO 中 无 此 命 
令 , 当 需要 延 时 时 ,可 以 用 REPEAT  (X)[ ] 代 替 。) 
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12.11 绘图 程序 选编 


12.11.1 直角 坐标 系 
例 21. 画 直角 坐标 轴 。 


TOZJ :X:Y :和 A 

HT PU SETPOS SE :X :YPD 

SETY 115 SETPOS SE : X-4 95 

PU SETX : X 十 4 PD 

SETPOS SE :X115 

BK 230 SETY :YSETX 95 

IF : A 一 一 1 [SETX 一 135 SETPOS SE 一 115 :Y 十 4 PU BK 8 PD 
SETPOS SE 一 135 :YSTOP] 

SETPOS SE 75 : Y 十 4PU BK 8 PD 

SETPOS SE 95 :Y 

SETX 一 135 SETX : 又 

END 


说 明 : :X，:Y 为 坐标 系 原 点 坐标 ，: A 为 横 坐 标 方向 代 
码 , 如 下 图 : 
: A 一 1( 或 之 0) : A 一 -1 


〈《:x,:3) 


例 22. 画 横 坐 标 和 纵 坐 标 。 
包 横 坐标 
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TOHB :H:Y:AI:N 

PU SETY :YY PD 

IF : N 王 一 [PU HOME PD STOP] 

SETX : H 十 (70 一 :H)x* :Ax :N 

FED 2BK2 

HB :H:Y:AI:N 一 1 

END 

说 明 : ，H 为 刻度 线 终点 横 坐标 ，: Y 为 刻度 线 所 在 纵 从 
标 ，: N 为 刻度 数 ，: A=1/ : N。 

@@ 纵 坐标 

TOZB :X:Z:A:N 

PU SETX : X PD 

IF : N 王 一 1 [PU HOME PD STOP] 

SETY :Z 十 (90 一 :Z)x*:Ax :N 

SETX :和 X 十 2 SETX :入 

ZB :X:Z :AI:N 一 1 


END 
说 明 : : Z 为 刻度 线 终点 纵 坐 标 ，: X 为 刻度 线 所 在 横 坐 
标 。 
运行 上 述 过 程 : 


?ZJ 一 20 0 1 
? HB 一 110 0 1/12 12 
? ZB 一 20 一 60 1/10 10 
? ZJ 一 110 一 75 1 

?ZJ 70 75 一 ! 

运行 结果 如 图 12. 15 
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〈(-20,0) 


〈-110，,-75) 


图 12. 15 ” 横 坐 标 和 纵 坐 标 
说 明 :; 在 使 用 “HB” 和 ”“ZB” 过 程 时 ,应 考虑 坐标 轴 的 位 置 ,使 
刻度 之 一 落 在 轴 上 。 


12. 11.2 画 字母 


例 23. 绘 出 字母 <LOGO”。 
Oepy 

TOL :X :YY 

PU SETPOS SE :X :YYPD 
BK 60 RT 90 FD 40 


PU HOME PPD 
END 

@“G?” 

TOG :X :Y 


PU STPOS SE :X :YYPD 
LT 60 REPEAT 24[FD 5 LT 10] 
LT 60 BK 10 FD 30 LT 90 
FD 15 BK 30 
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PU HOME PD 

END 

@“o” 

TOO :X :Y 

PU SETPOS SE :X :YPD 
RT 90 REPEAT 36[FD 5 RT 10] 
PU HOME PD 

END 

@^LOGO” 

TO LG 

EL 一 120 50 0 一 40 50 

G 50 45 O 100 50 

END 


运行 LG 过 程 : ? LG 上 ,运行 结果 如 图 12. 16 。 


12.11.3 折线 图 形 
例 24. 画 单元 折线 。 


TO DZ 

REPEAT 2[FD 40 RT 90] 
REPEAT 2[FD 20 RT 90] 

FD 40 RT 90 

REPEAT 2[FD 10 RT 90] FD 20 
END 
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运行 此 过 程 , 屏 幕 显示 如 图 12.17(a) 所 示 。 
例 25. 画 折线 图 形 。 
亿 折 线 图 形 1 
TO T1 
CS REPEAT 4[DZ] 
END 
思 折线 图 形 2 
TO T2 
CS REPEAT 8[DZ LT 45 FD 70] 
END 
四 折线 图 形 3 
TO T3 
CS REPEAT 4[DZ DZ LT 90] 
END 
运行 上 述 三 过 程 , 屏 幕 显示 如 图 12. 17(b) 一 (d) 。 


12.11.4 圆 沁 图 形 
例 26. 画 圆 弧 。 


TOYH :N :R :和 

REPEAT :NLFD :Rxr3.14/18RT5x* :Alj 

END 

说 明 : 圆 弧 相 当 于 边 数 较 多 的 正 多 边 形 的 一 部 分 。: N 为 边 
数 , 当 : N=72 时 ,为 整 圆 ; : A 为 左右 圆 弧 代码 ，: A 一 1 为 右 
圆 弧 ，: A 一 一 1 为 左 圆 弧 ; : R 为 对 应 圆 半 径 。 

例 27. 用 圆 弧 构 成 图 形 。 

人 中 对 贺 
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图 12.17 折线 图 


TODY :R :N 

IF : N<1 [STOP] 

YH72 :R1IYH72 :R 一 1 
DY :R 一 :R/:N :N 一 1 
END 
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(d) 


图 12.18 圆 弧 图 形 


运行 此 过 程 ， 
? DY 25 4w/ 结果 如 图 12. 18(a) 。 
包 火 球 


TO HQ 
REPEAT 9[REPEAT 2[YH 9 20 1 YH 9 20 一 1] RT 160] 


END 
运行 此 过 程 
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? HQw ,结果 如 图 12. 18(b) 。 

生花 球 

TO YQ :M :R1 :R2 

REPEAT : M[YH 72 : R1l 一 1 YH 72/:M :R21] 
END 

运行 此 过 程 ， 

? YQ 51010uw/ 

? YQ 12 15 0 

? YQ 12 15 5w/ 

运行 结果 分 别 为 图 12. 18(c)~(e) 。 


12.11.5 三 角 图 形 


例 28. 画 三 角形 。 
思 单 个 三 角形 

TO SJ : 工 

REPEAT 3[FD :上 LRT120] 
END 

@@ 旋 转 三 角形 

TO XS1 :L :N :和 A 
IF : N<1 [STOP] 
SJ :LRT360/ :和 A 
XS1 :L :N 一 1 :和 A 
END 


TO XS2 :N :L :和 A 
REPEAT :NLFD :ALT30SJ :LRT30BK :ART360/:Nj] 
END 
运行 上 述 二 过 程 : 
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? XS1 45 10 10uwl/ 
? XS2 25 25ul 


图 12. 19 
结果 分 别 如 图 12. 19(a) , (b) 。 
例 29. 蝴蝶 。 

@ 画 翅膀 
TO CB : 


IF :L<20 [STOP] 

SJ :LLT180SJ : 工 

CB : 工 一 20 

END 

@ 画 触角 

TO CJ :和 A 
LT15x*:AFD40LT120x* :AEFD15 
BK 15 RT 120x* :ABK40RT15* :和 A 
END 

说 明 : : A 为 左右 触角 代码 : : A 王 !1 为 左 ， 
@@ 画 蝴蝶 

TO HD :LL 

RT60CB :ELRT90SJ40 


: A 一 一 1 为 右 。 
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LT 150 CJ 1 cJ 一 1 

END 

运行 此 过 程 ， 

? HD 80 上 巡 ,结果 如 图 12. 20。 


12.11.6 和 荷花 


例 30. 水 中 荷花 。 

GD 画 花瓣 

TOH :X :L 

PU SETX : X PD 

REPEAT 2[REPEAT 9[FD :LRT10] RT90] 
REPEAT 2[REPEAT 9[FD :LLT 10]LT90] 
END 


图 12.20 蝴蝶 图 形 

@ 画 荷花 

TOHH :R :X:L :A 

RT :R 

REPEAT 2[H :X :ELRT45] 
LT'135H :X :LRT45 
REPEAT 4[BK 10 RT : A] 
PU HOME PD 

END 

@@ 画 水 面 
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TO SM 

PU SETPOS [一 110 一 20] PP RT 180 

REPEAT 19[REPEAT 18[FD 1 LT 10] RT 179.5] 
PU HOME PD 

END 

@ 画 荷花 池 

TO HC 

HTHH0064HH20 一 804 一 10 

HH 一 20 75 3 10 SM PU HOME PD 

END 


有 


图 12. 21 水 中 荷花 
? HCw ,结果 如 图 12. 21。 


12.11.7 树林 


例 31. 独 木 不 成 林 。 

树枝 

TOSC :NT:L :和 A 

IF :N=0 [STOP] 

LT30x* :AFD :Lx2SC :N 一 1 :L :和 A 
BK :Lx2RT60x* :AFD :L 

SC :N-1:L:ABK :LLT30x* :和 A 
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END 
说 明 :; : A 为 树 倾斜 方向 代码 ，: A>0 左 斜 ,，: A<<0 右 斜 ， 
: A 不 能 为 0。 


图 12. 22 


@@ 树 
TOS :XI:YIN:L :A 
PU SETPOS SE :X :YPD 
SC :N :L :ASETY 一 60 
END 


@@ 树 林 
TO SL 
S 一 75 一 25581 
S 一 2030415.9 
S70 一 10591.2 
END 
运行 此 过 程 ， 
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? SLw ,结果 如 图 12. 22 。 
12.11.8 闪光 的 红星 


例 32. 红星 照 我 去 战斗 。 

@ 五 角 星 

TO WX : 工 

MAKE “A ，Lx (SIN 36)/SIN 126 

MAKE “B :,Lw (SIN 18)/SIN 126 

REPEAT 5[FD :LILT 162FD :ALT54FD :BLT108EFD :BELT 
54FD :ART18BK :LRT72] 

END 

说 明 :MAKE 为 赋值 语句 。 

@@ 闪 光 

TO SG :L 

REPEAT 30[PUFD 1.2x :LPDFD.4x :LPUBK1.6x :LPD 
RT 12] 

END 

包 闪 闪 的 红星 

TOSX :X :Y :L 

HT PU SETPOS SE : X_ :YPD 

WX :LSG :L 

END 

说 明 : :X，: Y 为 五 角 星 中 心 位 置 坐标 。 运 行 此 过 程 : 

? SX 一 50 10 50w, 结 果 如 图 12. 23。 


12.11.9 五 星 红 族 


例 33. 球 扬 吧 ! 五 星 红 旗 。 
人 b 旗 
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TOQ 
PU SETPOS [一 120 一 50] 
| PD 
RN 1 /v REPEAT 2[FD 130 RT 90 
SS 记 FD 240 RT 90] 
AN BK 20 PU HOME PD 
ee END 
一 @ 星 
~ TOX :X:Y 1:L 
区 SS PU SETPOS SE :X :Y PD 
交 光 AAA WX :L 
8” 1 | N 二 END 
的 五 星 红旗 
TO GQ 
HTQX 一 80 45 25 


图 12.23 闪闪 的 红星 


X 一 40 60 10X 一 33 33 10 

X 一 501010X 一 80510 
END 

运行 此 过 程 

? GQ 上 ,显示 如 图 12. 24。 


12. 11.10 ”时钟 


例 34. 时 间 就 是 生命 。 
GD 刻度 盘 
TO KD 
REPEAT 12 [PU FD 60 PD FD 10 PU BK 70 PD RT 6 REPEAT 4[PU FD 
65 PPD FED 5 PU BK 70 PD RT 6]] 
END 
包 指 针 
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图 12. 24 


TOZZ :T :S :HH 

SETPC 1 SETH :SFD55BK55 

SETPC 1 SETH :HEFD35BK35 

WAIT :T 

SETPC 0 SETH :SFD55 BK 55 

SETPC 0 SETH :HEFD35PBK35 

ZZ :T :S++6 :H 二 .5 

END 

说 明 : S 为 分 针 位 置 ，: 世 为 时 针 位置 , 位 置 以 顺 时 偏离 Y 

轴 角 度 计 , 初 值 为 0。 

几时 钟 

TOSZ :T:S :H 
HTKDZZ :T:S :H 

END 

运行 此 过 程 : SZ 10 0 0 巡 

屏幕 显示 一 个 从 12:00 开始 走动 的 时 钟 。 图 12. 25 中 所 示 
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RE 


、\\ < 
xs 二 区 
ss 一 必 
二 ~ 
世 Y 二 
区 AN 
/7z AN 
“21 
《a) 12 :24 
图 12. 25 


为 任意 二 个 时 刻 钟 的 状态 。 


NS 7 
WE 
过 1 
、\ 
上 
站 
AN 
“7 
() 3:07 


说 明 : 欲 使 此 过 程 暂停 运行 ( 即 指针 停 走 ), 可 散 CTRL 十 Z 
键 , 欲 恢复 运行 ,键入 COw 。 也 可 以 殴 CTRL 十 W 键 暂 停 , 敲 任 


意 键 恢复 。 


12.11.11 指定 键 的 绘图 程序 


TO LIJ 

ST MAKE "A RC 

IF : A="Q [CS LJ] 

IF : A 王 和 [EFD 10LJ] 

IF : A 一 "M [BK 10 LJ] 

IF : A 一 杀 [LT 30 LJ] 

IF , A 一 丰 [RT 30 LJ] 

IF : A="U [PU LJ] 

IF : A 一 "0 [PD LJ] 

IF : A 一 中 [SETBG 1 SETPC 0 LJ] 

IF : A 一 "0 [SETBG 0 SETPC 1 LJ] 
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( 清 屏 ) 
(前 进 10 步 ) 
(后 退 10 步 ) 
( 左 转 30 度 ) 
( 右 转 30 度 ) 
( 抬 笔 ) 
(落笔 ) 

( 白 底 黑 字 ) 
〈 黑 底 白字 ) 


END 说 明 

人 是 右 方 注 明 的 绘图 状态 , 均 可 由 痪 对 应 的 单 键 完 成 (如 : 洲 
“1” 键 , 海 色 即 前 进 10 步 ) 。 

@@ 每 次 只 能 逆 一 个 指定 键 , 并 且 要 在 海龟 状态 变换 后 , 方 可 
再 毅 键 。 

@@ 敲 其 它 任意 键 , 即 可 退出 此 过 程 。 

人 此 过 程 还 可 随意 扩充 。 

@@ 过 程 中 的 RC 命令 ,作用 为 等 待 输入 一 个 字符 ,相当 于 
BASIC 中 的 GET 语句 。 


图 12.26 迷宫 图 案 


图 12. 26 所 示 的 “迷宫 ”图 案 , 即 由 反复 使 用 “TI"、“M”、J”、 
“K”“U”“02” 等 键 获得 。 
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习题 十 二 


1. 请 用 画 字 的 方法 分 别 编 一 个 写 “X” 和 写 “Y?” 字 符 的 过 程 。 

2. 请 将 纵横 比例 设置 命令 ,联接 打印 机 命令 ,打印 图 形 命令 
和 脱 开打 印 机 等 常用 命令 ,分 别 编 为 过 程 ,以便 随时 调用 。 

3. 编写 绘制 下 列 图 形 的 程序 ,并 运行 之 。 
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第 十 三 章 ”数字 和 表 处 理 


13.1 LoGo 的 数 和 算术 运算 


1.LOGoO 的 数 

@ 整 数 , 即 不 带 小 数 点 的 数 。 

如 :1989,13, 一 60,285。 

整数 在 LOGo 中 的 使 用 范围 为 一 22 一 232 ,计算 精度 为 9 位 
有 效 数 字 。 

@@ 实 数 , 即 带 小 数 点 的 数 。 

如 :4.73, 一 13.85,3. 05, 一 28. 0。 

实数 在 LOGo 中 的 使 用 范围 为 108 一 102 ,计算 精 度 为 7 


位 销 效 数字 。 
2. 基本 算术 运算 
人 基本 运算 符 
十 (加 ) .一 ( 减 )、* ( 乘 ) /( 除 ) 
@@ 运 算 规则 


有 括号 时 则 括号 优先 ,无 括号 时 则 先 乘除 ,后 加 减 ,这 与 数 
学 中 的 运算 规则 相同 。 如 ， 
100 一 16X4 十 28 一 7 写成 LOGO 表达 式 为 : 
100 一 16 * 4 十 28 /7 
人 个 趟 人 
eeoogo 
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运算 顺序 依次 从 中 一 由 。 注意: 

CDLOGO 运算 中 ,只 能 使 用 圆 括号 。 

包 当 除 式 为 表达 式 或 负数 时 , 必须 加 圆 括号 ,如 : 

60 二 (18 一 6) ,应 写成 :60/(18 一 6) 

60 一 (-5) ,应 写成 :60/( 一 5) 

图 当 进行 算术 运算 时 ,其 中 只 要 有 一 个 数 为 实数 ,其 运算 结 

3. 数 的 科学 记 数 法 

当 LOGO 中 表示 的 数 太 大 或 太 小 时 ,系统 会 自动 按 科学 记 
数 法 表示 ,用 户 也 可 以 用 科学 记 数 法 输入 数据 。 

科学 记 数 法 表示 的 数据 格式 为 : 

( 数 )(E 或 N7( 指 数 》 

其 中 :( 数 ) 是 只 有 一 位 整数 的 实数 ,当然 可 以 全 是 整数 ,也 
可 以 是 纯 小 数 , 其 值 可 正 可 负 。 (指数 必须 为 正 整数 ,不 能 是 实 
数 , 也 不 能 是 负数 ,指数 本 身 的 正 负 由 王 或 N 表示 。“E? 表 示 的 
是 10 的 正 整数 次 方 “N” 表 示 的 是 10 的 负 整 数 次 方 。 如 

10325 一 1. 0325X104 可 以 写成 :1. 0325E4 

0. 010325 一 1. 0325X10-2 可 以 写成 :1. 0325N2 

以 下 的 写法 是 错误 的 ， 

3E5. 1 (指数 不 能 用 实数 ) 

2.7E 一 4 (指数 不 能 用 负数 ) 

9.3 E2 ( 数 与 符号 间 不 能 有 空格 ) 


13.2 变量 与 函数 
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13. 2.1 变量 


变量 即 前 面 程序 中 用 到 的 形式 参数 , 它 可 以 用 在 数值 和 函 
数 运 算 中 。 变 量 名 可 以 用 一 个 或 多 个 字母 和 数字 符号 组 成 。 在 
为 变量 取 名 时 ,必须 注意 LOGO 语言 的 命令 不 能 再 用 作 变量 名 。 
含有 多 个 字符 的 变量 名 中 不 能 夹杂 空格 或 运算 符号 。 

以 下 的 变量 名 是 正确 的 : 

:X，:Y，: AM，: A2，: M123，: 3B 

以 下 的 变量 名 是 错误 的 ; 

: FD,，:CS，: A 十 B, :M N,，:4 注 意 : 

变量 名 前 一 定 带 有 冒号 ,这 是 LOGO 变量 同 其 它 语 言 变量 
最 明显 的 区 别 ， 


13. 2. 2 ”基本 函数 


1. 正弦 函数 SIN : X 

求 X 的 正弦 值 。 注 意 : 

@OSIN 与 其 后 的 :X 之 间 必 须 用 空格 隔 开 (其 它 函 数 亦 如 
此 )。 

四 :X 的 取 值 为 角度 值 , 当 其 值 大 于 360 度 时 ,会 自动 按 减 
去 360 度 的 整 倍数 后 的 余数 计 。 

图 当 :X 的 值 为 弧度 时 ,必须 换 成 角度 值 再 进行 运算 ,换算 
公式 为 :角度 值 王 弧度 值 X180/3. 14 

例 1. 

? PR SIN 405w/ (相当 于 求 SIN(405 一 360) ) 。 

.707107 结果) 
2. 余弦 函 数 COS : X 
求 X 的 余弦 值 。 
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例 2. 
? PR COS 145u/ 

-0. 819152 结果) 
3. 平方 根 函 数 SQRT “:X 
求 X 的 平方 根 。 注 意 : X 值 不 能 小 于 零 。 
例 3. 
? PR SQRT 100w/ 

10 (结果 ) 
4. 随机 天 数 RANDOM  :X 
随机 产生 从 0 一 (X 一 1) 之 间 的 任意 正 整数 ,X 值 必须 为 正 

整数 。 


例 4. 
? PR RANDOM 10k/ 

4 (结果 ) 
5. 四 含 五 入 取 整 函数 ROUND  :X 
将 X 值 四 舍 五 入 取 整 。 
例 5. 
? PR ROUND 6.8i/ 

7 结果) 


6, 求 整 商 函数 QUOTIENT  :X :YY 
将 X/Y 的 商 取 整 (小 数 部 分 全 舍 ),Y 值 不 能 为 零 。 
例 6. 
? PR QUOTIENT 10 3i/ 
3 (结果 ) 
7. 求 余数 函数 REMAINPER  :X :YY 
求 XXY 的 余数 ,Y 值 不 能 为 零 。 
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例 7. 
? PR REMAINDER 10 3uc/ 

1 (结果 ) 
8. 求 和 函数 SUM  :X :YY 
求 X 二 Y 的 和 。( 固 化 LOGO 无 ) 

例 8. 
? PR SUM 3 5kl/ 

8 (结果 ) 
9. 求 积 函 数 PRODUCT  :X :YY 
求 XXY 的 积 。( 固 化 LOGO 无 ) 


例 9. 
? PR RPODUCT 2 3x/ 
6 〈 结 果 ) 
注意 : 
当 求 和 函数 和 求 积 函数 中 的 参数 为 三 个 或 三 个 以 上 时 ，, 需 
用 圆 括号 将 函数 和 参数 括 起 来 。 


10. 反正 切 函 数 ARCTAN  :C 或 :A/:B 
其 中 参数 : C= : A/ : B 为 角 wa 的 正切 值 , 求 " 值 
例 10. 

? PR ARCTAN (SQRT 3)/3c/ 


29. 9995 (结果 ) 
? PR ARCTAN 1.732wl/ 
60. 002 (结果 ) 


(固化 LOGO 为 ATAN  :A :B) 
11. 伟 小 数 取 整 函数 INT :和 A 
: A 为 实数 , 舍 去 全 部 小 数 ,输出 整数 。 
例 11. 
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? PR JINT 6:8ul/ 
6 (结果 ) 
(固化 LOGO 为 INTEGER : A) 

以 上 基本 函数 可 以 和 算术 运算 结合 起 来 ,组 成 运算 表达 式 ， 
函数 之 间 也 可 以 嵌 套 或 者 相互 调用 .函数 中 使 用 的 变量 ,可 以 是 
表达 式 。 

除 基 本 函数 外 ,也 可 以 自行 定义 一 些 函数 ,作为 用 户 自 定义 
命令 使 用 , 见 13. 4 节 。 


13. 2.3 运算 符 的 优先 级 


1. 中 缀 运算 符 

指 算术 运算 符 ( 十 .一 `.X、/) 和 比较 运算 符 (>,=,<), 这 
些 符号 的 特点 是 符号 位 于 运算 参数 中 间 。 

2. 前 缀 运算 符 


指 基本 函数 (包括 自 定义 函数 ) ,这 些 函 数 的 符号 位 于 运算 
参数 之 前 。 

3. 运算 符 的 优先 级 

由 中 缀 运算 符 优 先 于 前 缀 运算 符 ; 

@ 算 术 运 算 符 优 先 于 比较 运算 符 ; 

@@ 优 先 级 相同 的 按 顺序 执行 ,其 中 算术 运算 符 中 ,乘除 优先 
于 加 减 。 

由 圆 括号 内 的 运算 最 优先 ,多 括号 时 按 先 内 后 外 的 顺序 运 
算 。 

例 10. 求 /9 一 /4 的 值 

若 运 算 表 达 式 写成 : 

? PR SQRT9 一 SQRT4w/ 

2. 64575 
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这 个 结果 是 错误 的 ,这 是 因为 此 表达 式 运 行 时 先 作 的 是 
“9 一 SQRT4”, 然 后 再 对 这 个 值 求 平方 根 所 造成 的 。 正 确 的 写法 
应 该 是 : 

? PR (SQRT9) 一 SQRT4w/ 

1 

例 11. 求 SIN45*/COS45" 十 1 的 值 

若 运算 表达 式 写 成 ， 

? PR SIN45/COS45 十 1z/ 

.904655 

这 个 结果 也 是 错误 的 ,这 是 因为 此 表达 式 运 行 时 先 作 的 是 
“45/COS45 十 1 一 45/COS46”, 然 后 再 对 其 值 求 正弦 所 造成 的 。 正 
确 写法 是 : 

? PR (SIN45)/(COS45) 十 1x7 

2 


13.3 表达 式 


13. 3. 1 运算 表达 式 


由 算术 运算 符 及 圆 括号 将 数 ,变量 及 函数 等 按 要 求 联接 而 
成 的 式 子 , 称 为 算术 表达 式 。 
如 ::Bx :B 一 4x :Ax :C 
(537 十 SQRT 100)/ : 和 
(CSIN : X) 十 :Y)/COS :X 十 15 
等 , 均 为 正确 地 算术 运算 表达 式 , 在 书写 表达 式 时 ,要 注意 以 下 
几 个 问题 : 
@@ 考 虑 运算 优先 级 ,根据 要 求 , 在 表达 式 中 适当 地 成 对 使 用 
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圆 括号 。 

思 变 量 名 前 必须 有 冒号 ”:”, 冒 号 与 变量 名 之 间 不 能 有 空 
格 。 

图 变量 名 与 函数 名 之 间 至 少 必 须 有 一 个 空格 , 当 变量 与 变 
量 , 变 量 与 数 及 变量 与 函数 之 间 有 运算 符 或 圆 括号 隔 开 时 ,可 以 
不 用 空格 。 


13. 3. 2 条件 表 达 式 


1. 单 一 条 件 表达 式 

格式 :IF( 条 件 》THEN [( 命 令 序列 )] 

条 件 满 足 时 ,执行 指定 的 命令 序列 。 

2…“ 与 ?条 件 表达 式 

格式 :IF AND (条 件 1) (条 件 2) [( 命 令 系 列 ) 

(固化 LOGO 的 表达 式 为 :IF ALLOF (条 件 1) (条 件 2) 

(命令 )) 

这 种 条 件 表 达 式 的 意思 是 : 当 条 件 1“ 与 ?条 件 2 同时 被 满 
足 时 , 才 去 执行 指定 的 命令 序列 。 而 只 要 有 一 个 条 件 不 满足 , 则 
执行 该 表达 式 的 后 继 命 令 。 这 种 条 件 关系 一 般 称 “ 与 ?逻辑 。 

例 12. 

IF AND (:LL>>100) (:Q>>360) [STOP]] 

这 个 表达 式 表 示 : 当 : L>100 与 :Q>360 的 条 件 同 时 满足 
时 , 才 会 执行 停止 命令 。 

注意 : 当 条 件 为 三 个 或 三 个 以 上 时 ,必须 用 圆 括号 将 “AND?” 
和 所 有 条 件 括 在 一 起 。 如 : 

IF (AND (:L>>100) (: Q>360) (:N<0)) [STOP] 

3.“ 或 ?条 件 表达 式 

格式 :IF OR( 条 件 1) (条 件 2) [( 命 令 序列 )] 
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(固化 LOGO 的 表达 式 为 :IF ANYOF( 条 件 1) (条 件 2) 
(命令 )) 

这 种 条 件 表达 式 的 意思 是 : 当 条 件 1 或 ?条 件 2 中 有 一 个 
条 件 满足 ,就 去 执行 指定 的 命令 序列 。 这 种 条 件 关系 一 般 称 

例 13. 

IF OR (:X 王 0) (:X 王 180) [PR :YSTOP] 

这 个 表达 式 表示 : 当 : X= 一 0 或: X 一 180 时 ,过 程 都 会 去 执 
行 打印 : Y 的 值 , 然 后 停止 。 

同样 , 当 条 件 为 三 个 或 三 个 以 上 时 , 必须 用 圆 括号 将 “OR? 
和 所 有 的 条 件 括 在 一 起 。 

4.“ 非 ?条 件 表达 式 

格式 :IF NOT (条 件 ) [ (命令 序列 )] 

(固化 LOGoO 的 表达 式 为 : 正 NOT( 条 件 )( 命 令 序 列 ) 

表达 式 的 意思 是 : 当 不 满足 该 条 件 时 ,执行 指定 的 命令 序 
列 。 这 种 条 件 关系 一 般 称 为 “ 非 ? 迎 辑 。 

例 14. 

IF NOT (: A 一 0) [PR : B/ : A STOP] 

此 式 表示 : 当 : A 不 等 于 0 时 ,打印 : B/ :和 A 的 值 ,然后 停 
止 。 

5. 条 件 表达 式 的 舱 套 。 

同 重复 命令 和 过 程 髓 套 相 似 , 条 件 表 达 式 也 可 以 用 媒 套 的 
办 法 来 简化 过 程 的 编制 。 

如 在 某 过 程 中 有 这 样 二 个 条 件 表达 式 , 其 后 的 命令 序列 完 
全 相同 ; 

IF AND (:A>0) (:B 一 0) [PR :XI] 

IF AND (: B>0) (:C<0) [PR :X] 
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不 难看 出 ,这 两 个 条 件 语句 之 间 又 存在 着 “或 ?的 关系 , 故 可 
改写 为 ; 
IF OR (AND (: A>>0) (:B=0))》 (AND (:B>>0) 
(: C<0)) [PR :X], 注 意 : 
条 件 表达 式 一 般 不 能 放 在 递归 调用 语句 (如 果 有 递归 调用 
语句 的 话 ) 的 后 面 , 请 读者 想 想 看 ,这 是 为 什么 ? 


13. 3. 3 ”赋值 与 输出 


1. 赋值 命令 

格式 :MAKE "变量 名 (表达 式 》 

作用 :将 表达 式 的 值 赋 给 指定 变量 。 

例 15. 

MAKE MA SQRT 200 

将 表达 式 “SQRT 200? 的 值 赋 给 变量 :A。 注 意 : 

电 变 量 赋值 ,不 必 区 分 变量 的 类 型 ,同一 个 变量 可 以 赋 于 不 
同类 型 的 数据 ( 数 、 字 符 及 表达 式 )。 

凶 被 赋值 的 变量 名 前 加 双 引 号 “"”, 后 面 不 加 。 变 量 一 旦 被 
赋值 ,在 调用 时 ,必须 在 其 前 面 加 上 冒号 (可 以 把 冒号 看 成 是 构 
成 变量 的 一 部 分 ) 。 

2. 打印 输出 命令 

电 换 行 打印 

格式 :PRINT/PR (表达 式 或 变量 
作用 :在 屏幕 上 显示 表达 式 或 变量 的 值 。 
例 16. 打印 正弦 函数 值 
TO ZXHS  : 工 
MAKE MA SIN  :T 
PR :和 
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ZXHS “ :T 十 15 

END 

运行 此 过 程 

? ZXHS 15u/ 

.258819 (以 下 为 输出 结果 ) 
.5 

.707107 

. 866025 


@@ 紧 次 打印 
格式 :TYPE (表达 式 或 变量 
作用 :在 一 行 中 (包括 自动 换行 ) 按 紧凑 格式 打印 多 个 数 
据 ,数据 间 无 空格 。 
如 例 16 中 ,将 ZXHS 过 程 中 的 PR :和 A 改 为 TYPE :和 A, 然 
后 再 运行 ， 
? ZXHS 15u/ 
.258819. 5. 707107. 866025.………: 
(固化 LOGO 命令 为 PRINT1( 人 参数 )) 
全 提示 打印 
格式 :(PR:( 字 或 表 〉 (表达 式 或 变量 )) 
作用 :用 字 或 表 作 提 示 ,与 数据 打印 在 同一 行 上 。 
如 例 16 中 ,将 ZXHS 过 程 中 的 PR : A 改 为 (PRLSIN] :T 
: A) ,然后 再 运行 ， 
? ZXHS 15wl/ 
SIN 15 一 . 258819 
SIN 30 一 .5 
SIN 45 一 .707107 
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[ 
| 
[| 


SIN 60 一 . 866025 


3. 程序 传送 命令 
格式 :OUTPUT/OP (表达 式 》 
作用 :将 表达 式 的 值 传送 给 其 它 过 程 。 
数值 以 及 函数 运算 也 可 以 用 过 程 实现 , 当 被 其 它 过 程 调 用 
时 ,其 值 或 运算 结果 必须 使 用 传送 命令 ,才能 使 对 方 接收 ,其 结 
果 并 不 显示 在 屏幕 上 。 
例 17. 
TOM :X 
PR :Xx :X 
END 
? M 12w/ 
144 (输出 结果 ) 
现 将 *M” 过 程 嵌 入 “N? 过 程 : 
TON :X :B 
MAKE MA M :和 
PR : A 十 :B 
END 
再 运行 :? N 12 15w ,屏幕 上 提示 出 错 信息 ,告诉 使 用 者 ,在 
过 程 中 调用 了 没有 输出 的 过 程 。 
现 将 过 程 <M? 中 的 打印 命令 “PR”, 用 传送 命令 “OP” 代 替 ， 
即 ， 
TO M :X 
OP :Xx :X 
END 
然后 再 运行 过 程 <N?”， 
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? N 12 15wi/ 
159 (输出 结果 ) 
由 此 可 见 ,“OP” 命 令 的 作用 是 将 某 过 程 的 结果 传送 给 另 一 
个 过 程 作为 该 过 程 中 的 实在 参数 使 用 ,所 以 在 数值 或 函数 运算 
中 , 当 调 用 某 过 程 时 ,一 定 要 使 用 传送 命令 “OP”。 
4. 文本 清 屏 命令 
格式 :CLEARTEXT 
作用 :清除 屏幕 字符 。 


13.4 数值 计算 程序 选编 


例 18. 正切 函数 。 

@ To TG1 
IF OF (: X=-90) (: X=270) [PRLI/] STOP] 
MAKE Z (SIN :X) /COS :XX 


PR :Z 
END 
过 程 建立 之 后 ,可 以 直接 作为 函数 使 用 。 
? TG1 45w/ 
1 (结果 ) 
? TG1 90u/ 
/ (结果 :不 存在 ) 
@ToTG2 :X 


IF OR (:X=90)(:X 一 270) [OP [/] STOP] 
MAKE Z (SIN :X) /COS :X 
OP :Z 
END 
过 程 TG2 也 是 正切 函数 ,但 只 能 在 程序 间 调 用 ,不 能 打印 
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输出 (注意 与 TG1 的 区 别 )。 
例 19. 余 切 函 数 。 
TO CTG : X 
IF OR (:X=0)(:X=180)[OP[/]STOP] 
MAKE "MD (COS :XI)/SIN :X 


OP :Z 
END 
此 函数 过 程 只 供 程序 间 调 用 。 


例 20. 指数 函数 。 

TOZS :N :Z :X :和 A 

IF AND (: X=0)(:A 一 一 1)[PR 1/ : M STOP] 
IF AND (:X<1)(:A 王 1)[PR : MSTOP] 

IF AND (:X=0)(:A=0)[PR 1 STOP] 


MAKE "M :N 
ZS :Nx:ZIZ :X 一 :Ax1l :人 A 
END 


说 明 : : N,，:Z 均 为 底数 ,但 : N 为 变量 ,其 终 值 即 为 指数 
函数 的 和 值 ; : A 为 指数 代码 ; 当 : X>0 时 , 即 求 “Zx” 则 令 :A 一 
1, 当 :X=0 时 , 即 求 “Z"”, 则 令 : A 一 0, 当 :X<0 时 , 即 求 “1/ 
Z”, 则 令 : A 一 一 1。 在 使 用 此 过 程 时 , 需 根 据 : X 值 来 确定 : A 
的 值 。 


?2ZS5531x/ ( 求 53) 

125 (结果 ) 

? ZS55 一 3 一 1 ( 求 5-3) 
8.N3 

? ZS-5500k/ ( 求 5") 


1 


例 21. 求 任意 角 的 三 角 函 数值 及 对 应 的 弧度 值 。 
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TOSH :X:N :和 A 

IF :X> :N [STOP]] 

MAKE "HD :Xx3.14/180 

(PR [X=] : X[……HD=] : HD) 

(PR [SIN X 王 ] SIN : X[……COS X]CcOoS :X) 

(PR [TGX 王 ] TG2 : X[L…… CTG X 一 ]CTG :XI) 

PR [ ] 

SH :X 二 :AI:N :A 

END 

说 明 : : X 为 任意 角 的 起 始 值 ,: N 为 任意 角 范 围 内 的 最 大 
值 ,: A 为 打印 角度 间隔 。 如 和 欲求 从 0" 一 90" 之 间 每 隔 10" 所 对 
应 的 三 角 函 数值 , 则 : X=0，: N 一 90, : A 一 10, 请 自己 运行 该 
程序 。 

例 22. 模拟 硬币 旋转 后 正面 向 上 的 次 数 ,计算 概率 。 

TOZF :M:N :S 

MAKE 忆 RANDOM 2 

IF : S<1 [MAKE HE : M 十 : N (PR [M=] : ML : N=] 

:N[C :GL=]:M/ :H) STOP] 

IF : Z=1 [MAKE "M : M 十 1] 

IF : Z=-0 [MAKE N : N 十 1] 

ZF :M :N :S 一 1 

END 

说 明 ; : M，: N 分 别 表示 正 反 面 出 现 的 次 数 ,其 初 值 均 为 
0， : S 为 试验 次 数 。 如 : 

? ZF 0 0 1000uc7 

M 一 504 :N 一 496 : GL 一 .504 

可 以 看 出 ,统计 次 数 越 多 ,概率 越 接近 0. 5 ,并且 要 注意 ,在 
试验 次 数 相同 时 ,每 次 获得 的 概率 不 一 定 相同 。 

例 23. 用 模拟 圆 形 , 求 圆周 率 。 
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我 们 知道 边 数 无 限 多 的 正 多 边 形 就 是 圆 形 , 而 正 多 边 形 的 
边 长 之 和 就 是 圆 形 的 周 长 , 圆 的 半径 和 正 多 边 形 的 边 长 与 边 数 


边 长 A 


图 13.1 圆 半径 和 正 多 边 形 的 关系 
的 关系 ,由 图 13. 1 可 知 ， 

设 边 长 A, 边 数 为 N， 圆心 角 为 B, 则 有 :B 王 360/N ,半径 及 
一 0. 5A/SIN(B/2), 周 长 S=N .。A 和 直径 D=2 .R 一 A/SIN 
(180/N) , 则 圆周 率 王 S/D 王 N。SIN(C180/N) 

由 以 上 关系 , 求 圆周 率 的 过 程 即 可 得 ; 

TOYZ :N 

MAKE "M :NxSIN 180/ :N 
PR : M 

END 

? YZ 180w/ 

3. 14143 

例 24. 求 连续 整数 的 累加 和 。 如 求 : 

1 十 2 十 3 十 ……。 十 10 一 ? 
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TOQH :A:B :IN 

IF :B>:NLIOPR :ML 二]: MIL 十 …… 十 ] : NL=] : A)STOP] 
MAKE MA SUM :A :B 

QH :A :B 二 li :N 

END 


TOQHC :A :B :N 

MAKE "M : 和 A 

QH :A:B :N 

END 

说 明 : : A,，: B 的 初 值 为 最 小 的 二 位 连续 整数 ，: N 为 连续 
整数 中 的 最 大 值 , 过 程 QHC 是 为 了 保留 :A 的 初 值 而 设 , 可 以 使 
打印 结果 便于 浏览 。 如 

? QHC 12 13 1000w7 ( 求 12 十 13 十 ……- 十 1000 王 ?) 

12 十 13 十 …… 十 1000 一 500434 (结果 ) 

例 25. 求 N 的 阶乘 。 求 

N! 王 NXCN 一 1)XCN 一 2)X…… 和 

TOJC :A :N 

IF :N 王 1LCOPR :N[L! 王 ]1)STOP] 

IF :N=2[(PR : B[! =]:A)STOP] 

MAKE MA :Ax(:N 一 1) 

JC :A :N 一 1I 

END 


TO JCcC :A :N 

MAKE 吧 : 和 A 

JC :A :N 

END 

说 明 ::A, : N 的 初 值 均 为 表达 式 的 阶 ,但 : A 的 值 随 : N 
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递减 的 结果 , 即 为 : N( 初 值 ) 的 阶乘 。 如 ， 

? JCC 10 10wl/ ( 求 10X9X8X.…… X1 一 ?) 

10 ! 一 3628800 (结果 ) 

例 26. 求 一 元 二 次 方程 的 根 。 

一 元 二 次 方程 表示 为 :AX2: 十 BX 十 C 一 0 

求 根 公式 为 : X1.2 = (一 B 士 / 素 一 44C)/(24) 
盖 0, 方 程 有 两 个 不 等 的 实 根 。 

当 | -有 下 
扫 0, 方 程 的 根 为 共 斩 虚 根 。 


TOQG :A :B :C 
MAKEID :Bx :B 一 4x :Ax :C 
IF : D>>0 [MAKE 必 1 (一 : B 十 SQRT :D)/(2x* : A) 
MAKE 哎 2 (一 : B 一 SQRT : D)/(2x* :和 A) 
(PR [X1 王 ] : X1[…X2 一 ] : X2)] 
IF :D=0 [MAKE 必 1 (一 B)/(2x* : A) 
MAKE 必 2 : X1 (PR [X1 王 X2 王 ] : X1)] 
IF : D<0 [MAKE "X1 (一 : B)/(2* : A) MAKE "X2 (SQRT 一 : 
D)/(2* :A)(PR [X 王 ] : XI1[ 十 中 : X2)] 
END 
如 :QG 3 9 -30w/ 
X1 一 2…X2 一 -5 
?QG 1 -4 4 
X1 一 X2 一 2 
?QG 1 5 9u/ 
X 王 -2.5 十 J1. 65831 
例 27. 分 解 质 因数 。 
TOQY :B :N :M 
IF : M< : N [STOP] 
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MAKE "A REMAINDER :M :N 
IF : A>>0 [MAKE N : N 十 1] 
IF : A=-0 [MAKE 吧 : B 十 1 (PR [Y] : B[=] : N) 
MAKE "M : M/ : N] 
QY :B :N :M 
END 
说 明 : : N 的 初 值 为 最 小 除数 2，: M 为 欲 分 解 的 任意 正 整 
数 ，: B 为 质 因数 个 数 ( 初 值 为 0) 。 如 : 
?QY02136w/ 
Yl1 一 2 
Y2 一 2 
Y3 一 2 
Y4 王 17 
例 28. 求 素 数 。 
TOQS :B :N :M :HH 
IF : M> : H [STOP] 
IF :N= :M [MAKE 吧 :B 二 1 (PR [S] :BL=]:M)] 
MAKE "A REMAINDER :M :N 
IF : A 之 0LMAKE N : N 十 菇 
IF : A 一 0 [MAKE "M : M 十 1 MAKE "N 2] 
QS :B:N :M :H 
END 
说 明 : : M，: H 为 所 求 数值 范围 内 的 最 小 值 和 最 大 值 ，: N 
仍 为 最 小 除数 2。 如 
?QS023100kcl/ 
S1 一 3 
S2 一 5 
S3 一 7 
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S4 一 11 


S24 一 97 
例 29. 打印 头 年 年 号 。 
我 们 知道 平年 有 365 天 , 闽 年 有 366 天 ,其 规律 是 ， 
@@ 年 号 能 被 4 除 尽 ,不 能 被 100 惟 尽 的 是 间 年 ; 
@) 年 号 能 被 400 除 尽 的 是 半年 。 
根据 上 述 规律 ,编制 过 程 如 下 : 
TOYR :X :Z 
IF :X> :Z [STOP] 
MAKE "M REMAINDER :X4 
MAKE "N REMAINDER :X 100 
MAKE 必 REMAINDER : X 400 
IF OR (AND (: M=0)(:N>>0))(:K 一 0)[PR :X] 
YR :X++1 :Z 
END 
说 明 : :X :Z 分 别 起 止 年 号 。 如 : 
? YR 1989 2000 
1992 
1996 
2000 


13.5 字 和 字 处 理 


1. 什么 是 字 ? 
由 字母 或 数字 等 符号 组 成 的 一 串 字 符 称 为 “ 字 ”。 字 的 标志 
是 在 串 字符 前 加 双 引 号 “ 必 。 如 "APPLE ,MLOGO , 必 5,"135 等 。 需 
要 注意 的 是 :LOGO 中 的 字 不 同 于 BASIC 中 的 字符 串 , 因 为 LO- 
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GO 的 字 中 不 允许 有 空格 ,括号 和 各 运算 符 。 如 虽 3,"A 十 B,"Ax 
2, 算 (X) 等 均 不 是 字 。 

对 于 字 , 除 可 用 打印 命令 “PR? 输 出 外 ,还 有 专门 的 字 处 理 
命令 。 
2. 字 的 处 理 
格式 1:FIRST 〈 字 》 
作用 :取出 字 的 第 一 个 字符 。 

例 30. 
? PR FIRST "APPLEw- 
A 
格式 2:LAST( 字 》 
作用 :取出 字 的 最 后 那个 字符 。 
例 31. 
? PR LAST "APPLEw- 
E 
格式 3:BUTEFIRSTV/BEF 〈 字 》 
作用 :取出 字 中 除 第 一 个 字符 以 外 的 其 它 字 符 。 
例 32. 
? PR BF "APPLEul/ 
PPLE 
格式 4:BUTLASTV/BL ( 字 》 
作用 :取出 字 中 除 最 后 那个 字符 以 外 的 其 它 字 符 . 
例 33. 
? PR BL "APPLE 
APPL 
如 果 一 个 字 中 只 含有 一 个 字符 , 那 末 取出 其 第 一 个 (最 后 一 
个 ) 字 符 后 为 空 。 如 
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? PR BF '"Xw ,屏幕 上 显示 一 个 空 行 ,表示 打印 输出 的 是 一 
个 “ 空 字 ”( 即 不 含 任 何 字符 的 字 ) 。 

格式 5:WORD ( 字 1〉 ( 字 2)》…( 字 ny》 

作用 :将 给 定 的 字 连 接 , 从 而 生成 一 个 新 的 字 。 

例 34. 

? PR WORD "ABC DEFw/ 

ABCDEF 

注意 : 

三 个 或 三 个 以 上 的 字 连 接 时 , 需 用 圆 括号 将 命令 和 所 有 的 
字 括 在 一 起 。 


13.6 表 和 表 处 理 


1. 什么 是 表 ? 

把 若干 个 字 组 合 在 一 起 ,并 用 方 括号 [ ] 括 起 来 ,就 组 成 一 
个 “ 表 ”。 表 中 的 字 不 再 带 双 引号 ,每 个 字 ( 又 称 表 元 素 ) 彼 此 间 要 
用 空格 或 运算 符号 隔 开 。 如 :[APPLE LOGO],[ZHJ SYDQ], 及 
[A 十 B 一 ] 等 均 是 正确 的 表 。 这 里 的 方 括号 可 以 看 成 是 表 的 标 
志 , 它 不 是 表 中 内 容 , 即 当 打 印 一 个 表 时 , 方 括号 不 会 被 打印 出 
来 。 

2. 表 的 处 理 

对 于 表 处 理 , 字 处 理 中 的 前 四 条 命令 同样 适用 于 表 处 理 , 只 
是 将 字符 换 成 表 元 素 而 已 。 

例 35. 

? PR FIRST [APPLE LOGO]w/ 

APPLE 
? PR LAST [APPLE LOGO]w/ 
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LOGO 
? PR BF [ZHJ SYDQ LOGO]w/ 
SYDQ LOGO 

? PR BL [ZHJ SYDQ LOGO]w/ 
ZHJ _SYDQ 

表 处 理 中 表 的 连接 命令 与 字 处 理 不 同 。 

格式 :SENTENCE/SE( 字 / 表 / 数 》 

作用 :将 若干 字 、 数 或 表 进 行 连 接 ,构成 新 表 。 

例 36. 

? PR (CSE [ZHJ] [SYDQI]"1990)w/ 

ZHJ SYDQ 1990 

对 于 表 处 理 ,还 有 另外 两 个 命令 ， 

格式 :FPUT 〈 字 / 表 》( 表 ， 

作用 :将 字 或 表 作 为 一 个 表 元 素 放 在 后 表 中 元 素 的 最 前 面 ， 

组 成 一 个 新 表 。 

例 37. 

? PR FPUT "APPLE [一 LOGO]w 

APPLE 一 LOGO 

? PR FPUT [ZHJ] [SYDQ]- 

[ZHJ]SYDQ 

格式 :LPUT (〈 字 / 表 》( 表 》 

作用 :将 字 或 表 作 为 一 个 表 元 素 放 在 后 表 中 所 有 元 素 之 后 ， 

组 成 一 个 新 表 。 

例 38. 

? PR LPUT "990 [ZHJ SYDQ] 

ZHJ SYDQ 1990 

? PR LPUT [ZHJ] [BASIC LOGO] 

BASIC LOGO [ZHJ] 
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13.7 字 表 处 理应 用 举例 


例 39. 将 一 个 字符 串 中 字母 从 右 到 左 依次 去 掉 。 


TOZL :N 

IF : N=”"” [PR STOP] 
PR : N 

ZLBL:N 

END 

? ZL "ABCDEFG 

ABCDEFG- 

ABCDEF 

ABCDE 

ABCD 

ABC 

AB 

和 A 

例 40. 打印 表 元 素 的 字 头 (缩写 ) 。 
TO QwW : D 

IF :D=[ ]LSTOP] 

MAKE "A WORD : A FIRST(CFIRST : D) 
QW BF : D 

END 

TO PL : D 

MAKE "A BF 吧 

QW : D 

PR ， 和 

END 


说 明 : 过 程 PL 中 调用 了 过 程 QW, :D 为 一 个 表 。 
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? PL [BEGINNER' S ALLPURPOSE SYMBOLIC INSTRUC- 
TION CODE]w/ 


BASIC 

例 41. 将 蜡烛 下 的 三 个 圆 盘 由 和 A 位 13. 2(a) 移 到 B 位 13. 
2(b) ,如 图 13. 2 所 示 。 移 动 时 注意 : 

亿 每 次 只 能 移动 一 个 圆 盘 ,而且 只 能 从 上 面 取 盘 。 

@ 移 动 过 程 中 要 求 在 任何 时 候 , 小 盘 总 是 放 在 较 大 的 盘 上 。 


(al) (b) 


图 13. 2 ”移动 圆 盘 示 意图 


下 面 是 解决 这 个 移动 问题 的 程序 ， 


TOYP :N :X:Y :2Z 

IF :N=0 [STOP] 

YP :N 一 1 :X:Z :YY 

(PR [P] :N :X[ 一 ] :Y) 

YP :N 一 1 : 乙 : Y : 又 

END 

说 明 : : N 为 圆 盘 总 数 ，: X，: Y，: Z 表示 位 置 , 运 行 时 用 
对 应 的 字 ", 虽 ,"C 代替 ,符号 “一 ”表示 移动 方向 ,P1 一 P3 表示 
几 号 盘 。 

现 设 :N 王 3, 键 入: 

? YP37A 吧 Cu 
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P1 A->B 

P2 A 一 >C 

P1 B 一 >C 

P3 A-> 了 B 

P1 C 一 > 人 

P2 C-> 了 B 

P1 A-~>B 

至 此 已 按 要 求 移动 完毕 。 可 以 证 明 , 移 动 次 数 M 与 盘 数 N 
的 关系 为 :M 王 2 一 1。 

这 是 世界 上 有 名 的 郴 塔 (Hanoi) 问 题 。 关 于 这 个 问题 还 有 一 
个 神奇 的 传说 :相传 在 古代 印度 的 布 拉 玛 婆罗 门 圣 庙 里 的 僧侣 
正在 进行 一 种 称 为 “ 焚 塔 ?的 游戏 。 这 个 游戏 是 ， 

一 块 黄 铜 平板 上 有 三 根 钻石 做 的 细 柱 i\j\k,i 柱 上 套 着 从 
上 到 下 ,由 小 到 大 ,编号 为 1,2……64 的 黄金 圆 盘 。 游 戏 要 求 把 
i 柱 上 的 圆 盘 全 部 移 到 k 柱 上 , 仍 按 同样 顺序 释 成 塔 形 , 上 且 移 动 
时 必须 遵守 :每 次 只 许 移动 最 上 面 的 一 个 圆 盘 ,上 且 不 许 把 大 盘 压 
在 小 盘 上 。 主 神 焚 天 宣称 :如 果 人 们 不 对 庙 里 的 神灵 顶礼 膜拜 ， 
当 他 们 做 完 这 个 游戏 时 ,世界 将 在 一 声 霹 雳 声 中 毁灭 ,而 那些 虎 
诚 的 信徒 都 可 以 升天 。 

可 以 证 明 ,要 移动 完 这 64 个 圆 盘 ,至 少 需要 移动 圆 盘 2% 一 
1 次。 假设 人 们 每 秒 钟 移 动 一 次 ,要 作 完 这 个 游戏 ,就 需要 大 约 
5800 亿 年 。 所 以 主神 的 宣称 ,完全 是 骗 人 的 。 


习题 十 三 
1. 试 自 定义 如 下 函数 : 


CDY 一 X2; 
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G@Y 一 1/X; 

@@Y 一 /人 /Az 十 了 Bz 

2. 设计 一 个 求解 一 元 一 次 方程 AX 十 B 一 0 的 根 的 过 程 。 

3. 设计 一 个 求 A/B 王 C……D 的 过 程 。 其 中 A,B 为 整数 , 且 
A>>B,C 为 整数 商 ,D 为 余数 。 如 :23/4 一 5……3。 

4. 设计 一 个 求 任意 正 整 数 A,B,C 的 最 小 公 倍 数 的 过 程 。 
(为 简化 过 程 设 计 ,A,B,C 可 按 大 小 顺序 排列 ) 。 

5. 设计 一 个 求 “<1/2 十 1/3 十 1/4 十 …… 十 1/10 一 ?” 过 程 。 

6. 按 例 41 的 要 求 , 亲 自 做 一 下 这 个 焚 塔 游戏 , 取 N 盖 4 试 
一 试看 ,至 少 需要 移动 多 少 次 ? 
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第 十 四 章 ”函数 图 形 的 程序 设计 


迄今 为 止 ,我 们 见 到 的 用 LOGO 语言 来 绘制 的 图 形 大 多 是 
一 些 几 何 图 形 。 本 章 将 介绍 另 一 类 图 形 一 一 函数 图 形 的 绘制 方 
法 和 编程 技巧 。 有 关 这 些 内容 的 资料 目前 尚 不 多 见 。 


14.1 哪些 函数 能 够 用 来 绘图 


鉴于 屏幕 为 平面 直角 坐标 , 故 海 色 绘 图 对 应 的 函数 是 二 元 
函数 . 凡是 二 元 函数 ,次数 不 限 , 原 则 上 都 可 以 由 海龟 来 绘 出 函 
数 图 形 ( 指 数 函 数 图 形 除外 ; 凡 3066 没有 指数 :函数 的 运算 ) 。 
而 且 当 改变 函数 中 某 些 参数 的 值 时 ,还 可 以 通过 图 形 的 变化 ,来 
分 析 函 数 的 特征 。 

能 够 用 LOGO 来 绘 出 图 形 的 函数 ,归纳 起 来 有 以 下 几 种 表 
现形 式 ; 

1.Y 王 f(x) 

如 :Y=A SIN Xi; 

Y 一 8A:/(X2? 十 4A2) 等 。 
这 种 函数 的 自 变 量 可 以 直接 赋值 ,变量 的 值 由 函数 关系 确 


， 
 Y=f(CT) 
这 是 用 参数 方程 表示 的 函数 ,如 ; 
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人 。COS T 
Y 王 B。SIN T 

es 。SIN T) 

Y 一 A(SIN T 一 T .COST) 

用 这 种 方式 表达 的 函数 ,只 需 对 X 和 YY 分 别 按 对 应 的 关系 
赋值 , 自 变 量 取 参 变量 T。 

3.，p 一 f(0) 

这 是 用 极 坐标 方式 表示 的 函数 ,如 : 

p? 一 A2 。COS28 

p 一 A。SIN36 等 。 

这 种 方式 的 函数 ,在 绘图 时 ,应 按 以 下 关系 转换 成 参数 方 
程 , 然 后 在 分 别 给 予 赋值 。 


人 fX 一 p 。 COS 
转换 的 公式 为 :(v sa 
其 中 四 为 p 与 横 轴 的 夹 角 。 
如 : p 一 A .SIN39 应 该 转换 成 ， 

X 一 p。 COS 中 一 A。SIN30。COSm 
(人 。SIN 一 A。SIN30。SIN 


自 变 量 取 9, 角 中 一 般 为 常数 。 


14.2 函数 绘图 程序 的 结构 


TO (过程 名 》( 参 数 1》〉 (参数 2》……… (参数 N)》 
《条 件 语句 》 

“赋值 语句 》 

(绘图 语句 ) 过 程 体 

递归 语句 》 
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END 
过 程 体 中 至 少 包括 这 四 个 方面 的 语句 。 下 面 就 每 一 类 语句 
的 特点 及 如 何 设 置 ,分 别 说 明 。 


14.2.1 亲 件 语句 


条 件 语句 的 作用 有 两 个 :一 是 使 递归 过 程 停 止 ;二 是 为 下 次 
绘图 作 准 备 ,使 海龟 复位 当然, 要 作 到 这 二 点 并 不 困难 , 它 可 以 
由 命令 序列 完成 ,关键 在 于 应 该 满足 什么 样 的 条 件 , 才 会 停止 并 
复位 呢 ? 

以 绘制 正弦 函数 曲线 为 例 , 当 自 变量 X 变化 一 个 周期 时 ， 
就 可 以 画 出 一 个 正弦 波形 。 显 然 ,绘制 图 形 的 个 数 或 者 自 变 量 
(包括 参 变 量 ) 的 变化 范围 ,都 可 以 作为 继续 或 停止 的 条 件 , 如 绘 
制 正弦 曲线 的 条 件 语句 可 以 写成 ， 

IF : X>360LSTOP] 

这 里 正弦 函数 只 显示 出 一 个 波形 , 即 停止 。 若 再 老 虑 到 复位 
的 情况 , 则 条 件 语句 可 为 ， 

IF : X>>360[PU SETPOS [X0 Y0]PD STOP]] 

其 中 PU SETPOS [X0 Y0]PD 即 为 复位 命令 ,其 作用 是 在 
过 程 停止 运行 之 前 ,将 海龟 调 回 到 函数 图 形 绘制 的 起 始 位 置 ,其 
坐标 为 LX0 Y0] 。 

一 般 说 来 ,条 件 就 取 自 变量 值 允 许 的 变动 范围 。 


14.2.2 赋值 语句 


1. 如何 确 定 自 变量 的 初 值 
自 变量 的 赋值 ,是 指 其 初 值 的 确定 ,因为 整个 绘图 过 程 是 由 
自 变量 的 初 值 开始 ,经 过 递增 语句 来 完成 的 , 自 变量 的 最 大 值 由 
条 件 语句 限定 , 故 关键 在 于 确定 初始 值 。 
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表面 上 看 , 令 自 变量 初 值 为 0 就 是 了 ,但 这 里 有 二 个 问题 ， 
一 个 是 自 变量 等 于 0 时 在 屏幕 上 的 位 置 ; 二 是 自 变 量 单位 与 坐 
标 单 位 之 间 存 在 着 差异 。 

个 自 变 量 等 于 0 的 花 置 

为 了 在 整个 屏幕 上 显示 完整 的 对 称 图 形 ,我 们 希望 图 形 起 
点 坐标 不 应 该 在 屏幕 坐标 原点 上 ,而 应 该 尽量 靠近 屏幕 左 侧 ,这 
样 当 自 变 量 增加 时 ,使 整个 图 形 从 左 到 右 显示 在 屏幕 上 。 

我 们 已 经 知道 ,屏幕 横 轴 的 坐标 范围 是 从 一 140 到 十 139， 
考虑 到 坐标 系 占 去 的 位 置 ,可 取 横 维 标 一 130 处 左右 作为 图 形 
起 始点 坐标 。 对 于 与 原点 对 称 的 图 形 ,起 始点 坐标 可 取 ( 一 130， 
0) 。 为 使 第 工 象 限 的 图 形 在 整个 屏幕 上 显示 出 来 ,起 始点 坐标 可 
取 为 (一 130, 一 75) ,相当 于 将 坐标 原点 移 到 屏幕 的 左下 角 。 

@@ 坐 标 单位 与 函数 单位 的 换算 

设 自 变量 X 的 变动 范围 为 0 一 360, 则 其 对 应 的 屏幕 坐标 
范围 应 从 一 130 到 (一 130 十 360) , 即 X 应 在 一 130 和 十 230 之 间 
变化 。 但 屏幕 横 坐 标的 正 向 最 大 值 是 十 139, 显 然 X 的 变动 范围 
超出 了 屏幕 范围 ,因此 需要 进行 单位 换算 。 

我 们 可 以 首先 把 允许 X 坐标 变动 的 范围 确定 下 来 ,比如 说 
让 X 只 能 在 一 130 到 十 70 之 间 变 化 , 则 变动 范围 为 200 个 海龟 
步 。 对 于 正弦 曲线 来 讲 , 希 望 在 这 200 个 海龟 步 中 使 X 由 0 增 
加 到 360, 显然 每 步 对 应 的 X 值 为 :360/200=1.8, 则 当 X 按 
360/1. 8 的 关系 变动 时 ,其 值 为 360 时 ,恰好 走 了 200 个 海龟 
步 。 这 就 是 单位 换算 。 

由 此 可 得 ,正弦 函数 自 变量 的 赋值 语句 为 ， 

MAKE 忱 :X/1. 8 一 130,:X 的 初 值 为 0, 由 键盘 在 运行 时 
输入 。 不 难看 出 ,这样 赋 值 后 , 当 X=0 时 ,其 位 置 在 一 130 处 , 当 
X 一 360 时 ,其 位 置 恰好 在 十 70 处 。 

。314。 


2. 变量 的 赋值 

变量 的 赋值 可 以 直接 按 对 应 的 包括 自 变量 在 内 的 函数 关系 
赋值 。 

如 :MAKE"Y :AxSIN :X, 其 中 :和 A 为 正弦 函数 的 幅 
值 。 其 值 大 小 以 不 超过 屏幕 上 纵 坐标 的 范围 为 限 。 

在 实际 编写 程序 时 ,为 增加 程序 的 变化 ,可 适当 增加 一 些 参 
数 ,如 ， 

MAKE 必 80* :AMxSIN :Xx :A 十 :AVW 

其 中 80" 为 正弦 量 幅 值 ，: AM 为 幅 值 系数 ,其 值 取 大 于 0 
小 于 或 等 于 1，: A 为 频率 系数 , 当 : A 的 值 大 于 1 时 ,屏幕 上 
显示 的 波形 数 将 大 于 1，: AW 为 相位 。 

经 过 这 样 处 理 后 的 赋值 语句 ,可 以 使 我 们 获得 任意 幅 值 、 频 
率 和 相位 的 正弦 曲线 ,从 而 大 大 扩展 了 程序 的 绘图 功能 。 


14. 2.3 绘图 语句 


在 给 自 变 量 和 变量 赋值 以 后 , 即 已 有 了 : X 和 :Y, 则 绘图 
语句 可 直接 由 纵横 坐标 绘图 命令 组 成 , 即 SETPOS SE :X :Y。 


14. 2.4 递归 语句 


在 过 程 体 中 ,调用 过 程 自 身 的 语句 称 递归 语句 ,在 递归 语句 
中 对 应 自 变 量 的 那个 形式 参数 要 加 上 一 个 适当 的 增 量 。 增 量 的 
大 小 ,应 与 函数 关系 相对 应 ,其 值 大 ,绘图 速度 快 , 但 图 形 粗糙 ， 
其 值 小 ,所 绘图 形 较 准确 ,但 绘图 时 间 就 长 .鉴于 此 ,通常 将 增 量 
取 为 自 变 量 最 大 值 的 百 分 之 一 或 二 较为 适宜 .对 于 正弦 函数 , 自 
变量 : X 的 增 量 可 取 2 一 5, 即 :X 十 2 或 : X 十 5。 

这 里 ,以 正弦 函数 为 例 ,介绍 了 编制 函数 绘图 程序 的 步 又 
和 要 求 。 在 此 ,我 们 给 出 一 个 绘制 正弦 函数 的 完整 程序 。 
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例 1. 画 正弦 函数 图 形 。 

TOZX :X :AM :A :AW 

IF : X>360 [PU SETPOS [一 130 0] PD STOP] 
MAKE 吧 : X/1.8 一 130 

MAKE MY 80* :AMxSIN :Xx :A 十 :AW 
SETPOS SE :X 3 Y 

ZX :X 二 2 :AM :A :AW 

END 

下 面 运行 一 下 此 过 程 ,请 键入 ， 

? PU SETPOS [一 130 0] PDw/ 
?ZX0110 (曲线 四) 

注意 观察 海龟 移动 绘图 的 全 过 程 及 复位 的 情况 。 然 后 再 键 


? ZX011 一 120k/ (曲线 四 ) 


图 14.1 三 相对 称 正弦 曲线 
? ZX011120x/ (曲线 四) 


。316 。 


这 就 在 屏幕 上 得 到 三 条 幅 值 相等 ,频率 相同 ,相位 互 差 
120" 的 正弦 曲线 ,这 种 曲线 , 称 三 相对 称 正弦 曲线 。 若 再 为 曲线 
画 出 直角 坐标 系 , 则 如 图 14. 1 所 示 。 

读者 还 可 给 出 其 它 参 数值 进行 试验 ,参数 值 最 好 按 以 下 范 
围 选 取 : 0( 秋 : AM 生 1. 2，1 和 : A 秋 10，0 委 : AW 委 360。 

若 将 正弦 过 程 稍 加 修改 ,可 以 获得 意 想 不 到 的 结果 .修改 的 
过 程 见 习题 十 四 ,读者 不 妨 按 题 目 要 求 运行 ,并 加 以 比较 。 


14.3 函数 图 形 程序 选编 


例 2. 条 件 图 表 。 
TOTB :X :和 A 
IF OR (:X>240)(:A>30)[LSETX 一 120 STOP] 
MAKE "Y RANDOM 160 
PU SETPOS SE : X 一 120 一 60 PD 
REPEAT 3[FD :YY 十 10 BK :Y 二 10RT90FD1LT90] 
TB : X 十 240/(:A 一 1 ) : A 
END 
说 明 : 此 过 程 无 实际 物理 意义 , 仅 为 训练 编程 而 设计 。 如 
? TB 0 9w ,显示 如 图 14. 2 
例 3. 模拟 分 子 的 热 运动 (布朗 运动 ) 。 
TO FV :N 
IF : N<<1 [BK 30 RT 90 REPEAT 36[FD .3 RT 10] PU HOME PD 
STOP] 
MAKE 必 RANDOM 240 
MAKE "Y RANDOM 200 
SETPOS SE : X 一 120 :Y 一 100 
WAIT 30 
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FV : N 一 1 
END 


说 明 : : N 为 运动 的 轨迹 数 。 如 


由 | 


图 14.2 图 表 
? EFV 20w ,显示 如 图 14. 3。 


图 14.3 布朗 运动 图 示 


例 4. 繁星 闪烁 。 

TO MX : N 

IF : N<1 [PU HOME PD STOP] 
MAKE 必 RANDOM 240 
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MAKE "Y RANDOM 200 

DOT SE :X 一 120 :YY 一 100 

WAIT 20 

SETPC 0 DOT SE : X 一 120 :YY 一 100 

WAIT 20 

SETPC 1 DOT SE : X 一 120 :Y 一 100 

MX :N 一 1 

END 

说 明 : 

由 此 过 程 基本 上 同 例 3, 仅 用 坐标 打点 命令 替换 了 坐标 绘 
图 命令 。 

@ 通 过 “WAIT” 的 延 时 作用 和 彩色 绘图 命令 的 擦 抹 功 能 ,可 
以 使 程序 在 运行 中 出 现 星光 闪烁 的 效果 。 如 ， 

? MX 50w ,显示 如 图 14. 4 


ao 


ee 
ee 


图 14.4 繁星 闪烁 
例 5. 圆 和 椭圆 。 
TOTY :X:Y:Q:A :B 
IF : Q>>360 [PU HOME PD STOP] 
MAKE "M :X 十 :AxCos :Q 
MAKE MN :Y 十 :BxSIN :Q 
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SETPOS SE :M :N 


TY :X:Y :QH5 :A :B 
EN 


图 14.5 圆 和 椭圆 
说 明 :, : A 为 风 圆 横 轴 ，: B 为 椭圆 纵 轴 , 当 : A=- : B 时 , 即 
为 一 个 圆 。( : X，: Y) 为 圆心 坐标 。 


TOYW :X:Y:Q :A:B 


PU SETPOS SE :X 二 :A :YPD 
TY :X:Y:Q:A:B 


END 

请 键入 : 

? YW0005050x/ 〈 曲 线 〇 ) 
? YW00010030k/ 〈 曲 线 @) 
? YW0003080i/ (曲线 @)) 


结果 显示 如 图 14. 5。 


例 6. 上 面 所 绘 之 椭圆 的 长 短 轴 都 是 与 坐标 轴 平 行 的 。 若 给 
制 轴 倾 斜 的 椭圆 , 需 经 过 坐标 系 变换 ,请 看 下 面 过 程 
TOKJ :X:Y:Q :A:B :T 
了 :Q>360 [LPU HOME PD STOP ] 
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MAKE "M : X 十 : Ax (COS :Q)*(COS :T) 一 :也 x* 
(SIN :Q)x*SIN : 工 

MAKE IN :YY 十 :Ax(COS :Q)*(CSIN :T) 十 :Bx 
(SIN : Q) x COS :IT 

SETPOS SE :M :N 

KJ :X:Y:Q+5 :A:B :T 

END 


Ca) (b) 


图 14.6 倾斜 椭圆 
说 明 : : IT 为 椭圆 横 轴 倾 斜 的 角度 : 
:T>>0，:T<Oxl/ 
TOKH :X:Y:Q:A:B:T 
MAKE "HE : X 十 : AxCOS : 工 
MAKE "MZ :Y 十 :AxSIN : 工 
PU SETPOS SE :H :ZPD 
KJ :XI:IY:IQ:A:B :TI 
END 
? KH -70 50 0 50 20 30k7 
? KH70 5005020-30x7 
运行 结果 分 别 见 图 14. 6(a)(b) 。 
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例 7. 若 再 加 上 下 面 二 个 过 程 , 可 
以 绘 出 如 图 14. 7 所 示 的 “科技 之 花 ? 
的 图 案 。 

TOHX :X :YY :A 

PU SETPOS SE :X :YPD 

RT 90 BK 1 

REPEAT 4[FD 2 LT 90]EFD1LT90 

PU BK : A 十 60 PD 

END 

此 过 程 可 以 在 (X,Y) 处 画 一 小 圆 
点 ,模拟 花蕊 。 

TOYH :N :R :和 A 

REPEAT : N[LFD :Rx3.14/18 RT 5 图 14.7 科技 之 花 
x :A] 

END 

此 过 程 为 画 圆 弧 过 程 , 见 14. 11. 4。 

? KH 0300502030k/ 

KH 0 30 0 50 20 -30w/ 

KH 0 30 0 50 20 90u/ 

HX0 3050LT10YH3501xl/ 
YH 18 25 1 RT 90wi7 

YH 36 25 1 RT 90w/ 

? YH 16 25 1wx/ 

上 述 过 程 运行 完毕 , 即 得 “科技 之 花 ”。 
鲍 8. 弹道 曲线 。 

弹道 曲线 的 方程 为 : 


人 一 Volcosw 


? 
检 
了 
了 ? 
? 
9? 


y 一 volsiza 一 0 
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请 看 下 面 过 程 : 

TODD :T:V:Q 

MAKE MA :Vx :TxCos :Q 

MAKE 吧 :Vx :TxCSIN :Q) 一 4.9x* :Tx : 工 
SETPOS SE : A 一 130 : B 一 75 

IF : B 一 0 [PU SETPOS [一 130 一 75]PD STOP] 
DD :T 二 .1 :V :Q 

END 


图 14.8 弹道 曲线 


说 明 ::T 为 时 间 , 初 值 为 0; : V 为 初速 ,，: Q 为 仰角 ( 海 怨 


方向 与 横 轴 正方 向 夹 角 ) 。 
再 为 其 配 上 直角 坐标 系 ( 略 ), 即 可 以 进行 “射击 ”表演 了 。 
? DD 0 50 30w/ (曲线 四 ) 
? DD 0 50 45w/ (曲线 @) 
? DD 0 50 60w/ (曲线 丘 ) 
? DD 0 50 75uj/ (曲线 外 ) 
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? DD 0 60 75i7/ (曲线 @@) 
显示 如 图 14.8。 由 图 中 可 以 看 出 : 

外 初速 相同 时 ,仰角 为 45" 时 ,射程 最 远 。 
包 仰 角 相 同时 ,初速 越 大 ,射程 越 远 。 

例 9. 玫瑰 线 。 


(Q) 


图 14.9 玫瑰 线 
函数 表达 式 为 : pe 王 A。SINCN8 十 B) 


TIOMG :QQ :A:W:N:H :Z 
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(a) 


IF : Q>>360 [PU HOME PD STOP]] 

MAKE 以 :H 十 :Ax(CSIN :Qx :N 十 :W)x*CoOS :QT 十 :W 

MAKE :Z 十 :Ax(SIN :Qx :NT:W)xSIN :Q+: W 

SETPOS SE :X :YY 

MG :Q+5 :A:W:N:H :Z 

END 

说 明 :: H,，: Z 为 图 形 中 心 位 置 坐标 ，: N 为 玫瑰 线 叶片 数 
代码 : : N=3 表示 三 叶 玫瑰 线 ,，: N 王 2 表示 四 叶 玫 瑰 线 ， 
: N 一 4 表示 八 叶 玫 瑰 线 。 

TOMGX :Q :A:W:N:H :2Z 

MAKE "H1 : H 十 :Ax(CSIN :Qxr :NT:W)x*COS :W 

MAKE "MZ1 :Z 二 :Ax(CSIN :Qx :N 十 :W)xSIN :W 

PU SETPOS SE : H1 : Z1 PD 

MG :Q :AI:IW:N:H :Z 

END 

? MGX 06003-75 30x (图 (a)) 

? MGX 060027530c/ (图 (b)) 

? MGX 0 60 90 2 -75 10w” (图 (c)) 

? MGX 060047510x/ (图 (d)) 

显示 图 形 如 图 14. 9(a) 一 (d) 。 

例 10. 调幅 波 ( 模 拟 无 线 电波 ) 。 

TOTEF :X:A :Z 

IF : X>540 [PU SETPOS [-130 0]PD STOP] 

MAKE '"H : X/2.7 一 130 

MAKE "M :Zx(60 十 20x*SIN :X) 

MAKE MN SIN :Xx* :A 十 90 

MAKE'Y :Mrx :N 

SETPOS SE :H :Y 

TEF :X 二 4 一 :A/5 :A :Z 
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END 

说 明 : : A 为 载波 频率 大 于 音频 波 频 率 的 倍数 ，: Z 为 绘制 
音频 波 代码 : :Z 取 1 或 者 一 1。 

再 加 上 直角 坐标 系 ( 略 ) ,运行 此 过 程 : 

?ITF061c (曲线 全) 

? TF001c (曲线 四 ) 

? TF 00-l1x (曲线 @@) 

显示 如 图 14. 10 所 示 ， 

rr 


图 14. 10 ”调幅 波形 

例 11. 簧 舌 线 。 

函数 表达 式 为 :Y 一 8A3/(CX2? 十 4A3) 

TOJS :X :和 A 

IF : X>120 [PU HOME PD RT 90 BK 2 REPEAT 36 [FD : Ax3.14/ 

36 LT5PUFD :Ax3.14/36 LT5PD]LT90STOP] 

MAKE '"X : X 

MAKE MY 8x :Ax :Ax :AL/(:Xx :X 二 4x :Ax :A) 
SETPOS SE :X :YY 

JS :X 十 4 :和 A 
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END 

TO JSZ :X :和 

SETX 120 SETX 一 120 

PU SETY 8x :Ax :Ax :Al/(120x*120 十 4x* :Ax :A) 


PD 

JS :X :人 A 

END 

? JSZ 一 120 40w/ (曲线 @D) 
? JSZ 一 120 25w/ (曲线 @) 


图 14.11 禾 舌 线 


显示 如 图 14. 11 。 
例 12. 星 形 线 。 


函数 表达 式 为 ,人 


TO XX : 工 :A 

IF :T>>360 [BK 2 REPEAT 36[FD : Ax3.14/36 LT5PUEFD : 
3.14/36 LT 5 PD]PU HOME PD STOP] 

MAKE 必 :Ax(COS :T)*(COS :T)*(COS :T) 

MAKE MY :Ax(SIN :T)*(CSIN :T)x*(CSIN :T) 

SETPOS SE :X :YY 

XX :T 十 4 :和 A 

END 

TO XXZ :T :和 A 


X 一 A。COSxt 
Y 一 A。SINit 
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PU RT 90FD :ALT 90 PD 


XX :T 工 :和 A 

END 

? XXZ 0 60 巡 《曲线 中) 
? XXZ 0 35 kw (曲线 @) 


图 14.12 星 形 线 图 14. 13 ”心脏 线 

显示 结果 如 图 14. 12。 

例 13. 心脏 线 。 

函数 表达 式 为 :pp 一 4. (1 一 COSa) 

TOXZ :Q :A :W 

IF : Q>360 [REPEAT 2[REPEAT 54[FD : Ax 3.14/72 LT 5 PU FD 

: Ax3.14/72LT5PD]LT 180 BK 2 JSTOP] 

MAKE 以 : Ax (1 一 COS :Q)x* CoOS :QT : W 

MAKE  : Ax(1 一 COS :Q)x*SIN :Q+ : W 

SETPOS SE :X :Y 

XZ : Q+4 :A : W 

END 

? XZ 0 45 0u/ 

显示 结果 如 图 14. 13。 

实际 上 ,我们 还 可 以 利用 LOGoO 语言 画 出 许多 有 实用 价值 
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的 函数 曲线 ,读者 有 兴趣 的 话 ,不妨 自 己 试 一 试 。 
习题 十 四 


1. 运行 下 述 程序 ,改变 参数 值 ,观察 图 形 。 
TOZXH :X:AM :A:AW :BM :B :BVW 
IF : X>360 [PU SETPOS [-130 0]PD STOP] 
MAKE 必 : X/1.8 一 130 
MAKE "M 80x* : AMxSIN :Xx :A 十 :AW 
MAKE N 80x : BM xSIN :Xx :B 十 :BW 
MAKE "Y : M 十 :N 
SETPOS SE :X :Y 
ZXH :X+T2 :AM :A :ANW :BM :B :BW 
END 
其 中 各 参数 使 用 范围 见 例 1 。 

2. 请 使 用 椭圆 过 程 和 随机 函数 在 屏幕 上 绘 出 若干 个 位 置 不 

同 的 汽 球 , 看 谁 画 得 好 。 
3. 圆 的 渐 开 线 方程 为 
X 一 A(COST 十 T。SINT) 

Gy 。COST) 

试 编写 一 过 程 , 绘 出 渐 开 线 。 
提示 :公式 中 的 “T” 换 算 成 弧度 。 

4. 阿 基 米 德 螺 线 方程 为 :p 一 A 8 
试 编 写 一 过 程 , 绘 出 螺 线 。 
提示 :8 为 转角 , 取 弧 度 单位 。 
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附录 一 ”BASIC 语言 一 览 表 


这 里 列 出 了 BASIC 中 要 用 到 的 命令 、 函 数 以 及 在 BASIC 状 
态 下 可 用 的 DOS 命令 。 


1.1 BASIC 命令 一 览 表 


CALL (算术 表达 式 》 

调用 机 器 语言 子 程序 。 算 术 表 达 式 的 值 必须 在 一 65535 和 
65535 之 间 。 

COLOR 一 (ny》 

设置 低 分 辨 率 图 形 显示 的 颜色 。n 是 颜色 的 代号 ,其 对 应 关 
系 如 下 ， 
本 各 吕 名 夺回 全 外 本 本 攻 时 加 区 业 
工 加 四 下 加工 加 正 正 可 器 到 开工 加 王 


DATA 〈 数 据 )[, (数据 ) ,…] 

为 READ 语句 提供 数据 。 

DEF FN 〈 变 量 名 〉 (( 实 型 算术 变量 )= 算术 表达 式 ) 

说 明 自 定义 函数 。 该 函数 一 经 定义 ,就 可 以 象 标准 函数 SIN 
(X) 等 一 样 在 算术 表达 式 中 调用 。 调 用 形式 为 FEN (变量 名 》 
〈( 实 在 参数 ) 。 

DIM (变量 名 )(( 下 标 表 ))[,( 变 量 名 〉 (( 下 标 表 ) )] 

定义 一 个 或 多 个 数组 。 下 标 表 由 一 个 或 多 个 下 标 构 成 。 下 
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标的 值 称 为 数组 的 界 。 下 界 为 0, 上 界 最 大 为 32767。 下 标的 个 
数 称 为 数组 的 维 数 ,数组 的 最 大 维 数 是 88。 常 用 的 是 一 、 二 、 三 
维 数组 。 数 组 也 有 类 型 之 分 。$ 代表 字符 型 ,% 表 示 整 型 。 

DRAW nLAT X,Y] 

在 屏幕 上 显示 第 n 个 向 量 表 中 的 图 形 。 

FLASH 

置 显示 器 为 闪烁 方式 。 中 文 BASIC 无 效 。 

FOR 〈 实 型 算术 变量 = (算术 表达 式 1) TO 〈 算 术 表 达 式 
2)[LSTEP〈 算 术 表 达 式 3)] 〈 循 环 体 y NEXT 〈 实 型 变量 名 》 

循环 执行 FOR 和 NEXT 之 间 的 语句 ( 即 循环 体 ), 直 到 循环 
控制 变量 的 值 超过 终 限 值 , 则 继续 NEXT 后 继 命令 的 执行 。 循 
环 体 中 又 可 以 嵌 套 循环 ,但 最 多 只 能 嵌 套 10 层 。 

FRE(X) 

释 放 数 据 区 中 的 无 用 单元 。X 仅 是 一 个 “ 虚 ? 元 。 可 取 为 


GET (变量 名 》 

从 当前 输入 设备 (键盘 ) 上 接收 一 个 字符 并 送 到 变量 中 。 执 
行 GET 时 ,屏幕 上 没有 任何 提示 信息 ,输入 的 字符 也 不 显示 在 
屏幕 上 。 由 于 仅 接收 一 个 字符 ,因而 融入 字符 之 后 可 以 不 敲 回 车 
键 。 

GOSUB ( 行 号 》 

无 条 件 转 到 给 定 行 号 的 子 程序 去 执行 ,并 将 GOSUB 的 下 
一 个 语句 地 址 推 入 堆栈 ,以 便 子 程序 执行 结束 到 RETURN 时 返 
回 到 该 地 址 继续 执行 。 子 程序 嵌 套 调用 最 多 25 层 。 

GOTO ( 行 号 》 

无 条 件 转 到 给 定 的 行 号 去 执行 。 

GR 
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置 低 分 辩 率 作 图 方式 。 这 个 语句 是 将 屏幕 上 部 置 成 40X40 
么 可 用 POKE 或 PEEK 语句 去 访问 一 16300。 
本 

加 晤 下 生生 

HGR. 

HGR2 

HIMEM :又 

HLIN X1,X2 AT Y 

HPLOT X,Y 

从 上 次 所 画 点 到 (X,Y) 座 标 之 间 画 一 条 线 。 


可 显示 的 小 方块 ,作为 低 分 辨 率 图 象 显 示 区 ,将 屏幕 下 部 四 行 作 
为 文本 显示 区 .如果 要 将 这 种 方式 转换 到 纯 低 分 辩 图 形 显示 , 那 
HCOLOR 王 〈ny》 
设置 高 分 辩 率 图 形 的 颜色 。 在 高 分 辨 图形 方 式 下 有 八 种 颜 
Ca 
图 儿 辐 目 洁 
设置 屏幕 高 分 辩 率 图 形 与 文本 显示 混合 方式 。 显 示 第 一 
页 。 
作用 同 HGR , 仅 使 用 第 二 页 。 访 问 地 址 一 16302 可 转 到 纯 
高 分 辨 图 象 显示 方式 ,访问 一 16301 又 可 转 回 来 。 
设置 BASIC 程序 工作 区 域 的 上 限 地 址 ,目的 是 防止 BASIC 
程序 的 数据 破坏 高 分 辨 图 形 显 示 区 域 机 器 语言 子 程序 。 
在 低 分 辩 率 作 图 方式 下 ,以 (Xl,Y) 为 起 点 ,(X2,Y) 为 终点 
在 屏幕 上 画 一 条 水 平 线 ( 横 线 ) 。 
在 高 分 辩 图 形 方式 下 以 (X,Y) 为 座 标 画 一 个 点 。 
HPLOT TO X,Y 
HPLOT Xl,Y1 TO X2,Y2 [{(TO Xi,Y)…] 
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从 (Xl,Yl1) 到 (X2,Y2) 之 间 画 一 条 线 ,再 从 (X2,Y2) 到 
(X3,Y3) 之 间 画 一 条 线 ,依次 画 下 去 ,使 所 有 的 (Xi,YD 连 成 一 条 
线 。 其 中 0 委 X 委 279,0 委 Y 委 159。 如 果 是 在 满 屏 方式 下 , 则 0 委 
Y 二 191， 

HPLOT TO X2,Y2 [{TO XiyYi)…] 

从 上 次 所 画 点 到 (X2,Y2) 之 间 画 一 条 线 ,再 依次 连 到 (Xi， 
YiD) ,这 样 一 直 画 下 去 。 

HTAB (( 算 术 表 达 式 >) 

将 光标 移 到 指定 的 列 上 。 在 西 文 BASIC 下 ,算术 表达 式 的 
值 必须 在 1 一 255 之 间 。' 从 光标 所 在 行 的 1 一 40 列 为 当前 行 ,41 
一 80 列 为 下 一 行 ;在 中 文 BASIC 下 ,算术 表达 式 的 值 也 必须 在 
1 一 255 之 间 。1 一 34 为 当前 行 ,35 一 68 为 下 一 行 。 

IF (条 件 》 GOTO ( 行 号 ， 

如 果 条 件 为 真 , 则 转 到 指定 行 号 去 执行 。 和 否则 顺序 执行 正 
的 下 一 个 语句 。 

IF 〈 条 件 》 THEN ( 行 号 》 

如 果 条 件 为 真 , 则 转 到 行 号 所 指 语句 去 执行 ,否则 顺序 执行 
下 一 语句 。 

IF (条 件 》 THEN 〈 语 名 )[L:;( 语 句 )…] 

如 果 条 件 为 真 , 则 执行 THEN 之 后 给 出 的 语句 ,和 否则 执行 
IF 的 后 继 语 句 。 

INPUT [ (提示 ); ] 变 量 名 [{, (变量 名 }…] 

允许 从 键盘 上 接收 数据 并 送 到 变量 中 。 

INVERSE 

将 屏幕 置 为 反 相 显示 , 即 白 底 黑 字 。 

LET 〈 变 量 名 ) = (表达 式 ) 

将 表达 式 的 值 赋 给 左 部 变量 。LET 可 以 省 略 。 
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LOMEM :X 

限制 BASIC 程序 工作 区 域 的 下 限 地 址 。 参 见 HIMEM。 

MUSIC X,Y 

定义 一 个 音节 和 音 长 ,并 使 扬声器 发 声 。 其 中 X 表示 发 声 
的 频率 ,Y 表示 发 声 的 时 间 。 

X 对 应 的 音阶 如 下 表 : 


到 汪 辣 疝 呈 辐 四 占 呈 怕 后 


Y 对 应 的 节拍 如 下 : 


CT TeTaw Ta 
ET 本 了 本 了 


NORMAL 
把 显示 器 置 为 标准 (正常 ) 方 式 , 即 黑 底 白字 。 

NOTRACE 取消 TRACE 的 跟踪 作用 。 

ON 〈(n》 GOSUB ( 行 号 1),( 行 号 2)[,( 行 号 3?…]] 

根据 n 的 值 , 转 到 第 n 个 行 号 (即行 号 n) 的 子 程序 去 执行 
ON《(n)GOTO( 行 号 1),( 行 号 2)[,( 行 号 3?…] 

根据 n 的 值 , 转 到 行 号 n 的 语句 去 执行 。 

ONERR GOTO 〈 行 号 》 

如 果 程 序 发 生 错 误 则 无 条 件 转 到 指定 行 号 去 执行 

PLAY 

将 盒 式 磁带 机 中 游戏 软件 装 入 内 存 自动 运行 。 操 作 方 法 


先 将 磁带 退 到 开始 位 置 , 在 键盘 上 痪 入 PLAY, 按 下 磁带 机 
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上 的 “PLAY?” 键 使 磁带 机 启动 ,然后 敲 键盘 上 的 回 车 键 。 稍 等 片 
刻 ( 约 15 秒 左 右 ) ,屏幕 显示 “IT' S LOADING PLEASE WAIT?” 
(请 稍 候 , 正 在 装 入 )。 当 游戏 程序 装 入 内 存 后 自动 运行 。 此 时 ， 
按 下 磁带 机 的 “STOP” 键 。 

PLOT X,Y 

在 低 分 辩 率 作 图 方式 下 ,在 (X,Y) 位 置 上 画 一 个 点 ,其 颜色 
由 最 近 执 行 的 COLOR 确定 。 

POKE X,Y 

将 十 进 制 数 Y 保存 到 X 所 示 的 内 存单 元 中 。 
一 65535<X 及 65535,0<Y 妥 255。 

POP 

作用 与 RETURN 类 似 。 区 别 在 于 : 当 执 行 RETURN 时 , 堆 
栈 顶 部 的 地 址 被 弹出 ,使 计算 机 按照 弹出 的 地 址 去 执行 。 当 执行 
POP 时 , 栈 顶 地 址 也 被 弹出 但 计算 机 并 不 按 弹出 的 地 址 去 执行 ， 
而 是 执行 POP 语句 的 下 一 个 语句 。 因 此 ,在 POP 之 后 跟 上 一 个 
GOTO 语句 ,就 可 以 使 控制 转 至 任何 语句 去 执行 。 

PRINT [( 表 达 式 )] [{, (表达 式 ))…] 

打印 表达 式 的 值 。 表 达 式 之 后 可 以 跟 喜 号 ”, ?或 分 号 “;”。 在 
殴 键 时 也 可 用 “?? 来 代替 PRINT。 

READ 变量 名 [,{( 变 量 名 }…] 

将 DATA 提供 在 数据 区 中 的 数据 依次 送 到 变量 名 中 。 

RESTORE 

将 数据 区 (由 DATA 提供 的 数据 ) 中 指针 拨 到 第 一 个 数据 
位 置 ,使 数据 区 中 数据 可 以 重新 使 用 。 

RETURN 

子 程序 的 结束 标志 。 它 将 堆栈 中 保存 的 地 址 弹出 ,使 计算 机 
按照 弹出 的 地 址 去 执行 。 一 个 子 程序 中 至 少 有 一 个 RETURN 语 
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句 。 子 程序 至 多 可 以 嵌 套 25 层 。 

ROT 一 m 

设置 向 量 绘图 图 形 的 旋转 角度 。 

SCALE 一 n 

确定 向 量 图 形 的 比例 大 小 。 

SPEED 王 (算术 表达 式 ) 

改变 计算 机 到 LO 设备 之 间 字 符 的 传输 速度 。 表 达 式 的 值 
确定 了 传输 速度 的 大 小 ,最 低速 度 为 0, 最 高 速度 为 255, 即 算术 
表达 式 的 值 在 0 一 255 之 间 。 

工 EXT 

由 低 分 辩 率 图 形 方式 或 高 分 辩 率 图 形 方式 转换 到 满 屏 文本 
显示 方式 。 

TRACE 

跟踪 程序 的 执行 ,并 将 行 号 显示 在 屏幕 上 .用 NOTRACE 可 
以 取消 跟踪 。 

VTAB (( 算 术 表 达 式 )) 

- 将 光标 移 到 指定 的 行 上 。 注 意 :VTAB 只 能 使 光标 上 下 移 

动 ,而 不 能 左右 移动 。 在 西 文 BASIC 下 ,算术 表达 式 的 值 必须 在 
1 一 24。 在 中 文 BASIC 下 ,其 值 在 1 一 10 之 间 。 

VLIN Y1,Y2 AT X 

在 低 分 辩 率 作 图 方式 下 以 (X1,Y2) 为 终点 画 一 条 垂直 线 。 

WAIT X,Y 

使 程序 在 执行 过 程 中 处 于 等 待 状态 ,直到 指定 单元 的 值 满 
足 一 定 条 件 时 ,程序 又 继续 执行 .其 中 :X 值 表 示 存 储 单元 地 址 ， 
一 65535<X 生 65535。Y 表示 0 一 255 之 间 的 一 个 十 进 制 数 。 操 
作 过 程 是 ， 

程序 先 读 入 X 单元 的 内 容 再 与 Y 值 进行 “与 ?运算 ,如 果 结 
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果 为 零 则 重复 这 一 过 程 。 若 结果 不 为 零 , 则 程序 向 下 继续 执行 。 
X',Y 也 可 以 是 算术 表达 式 。 

WAIT X,Z,Y 

作用 同 WAIT X,Y。X 表示 存储 单元 地 址 ,一 65535 委 X 委 
65535。Y,Z 为 0 一 255 之 间 的 十 进 制 数 。 操 作 过 程 是 ， 

程序 读 X 的 值 与 Z 值 进行 “ 异 或 ?运算 ,然后 再 与 Y 值 进 
行 与 ?运算 ,结果 为 零 则 重复 这 个 过 程 , 结 果 不 为 零 则 向 下 继续 
执行 。 

XDRAW n [AT X,Y] 

作用 同 DRAW, 只 不 过 图 形 颜色 是 DRAW 命令 的 补 色 。 这 
通常 用 来 控 除 一 个 图 形 。 


1.2 ”BASIC 函数 一 览 表 


ABS(X) 

求 X 的 绝对 值 。X 可 以 是 算术 表达 式 。 

ASC(( 字 符 串 表达 式 ) 

求 字符 串 表 达 式 值 中 第 一 个 字符 的 ASCII 码 值 。 字 符 串 的 
长 度 不 超过 255。 

ATN(CX) 

求 X 的 反正 切 值 arctgx。 一 上 /2 秋 X 委 zy 2。 

CHR $ (算术 表达 式 )) 

求 出 与 算术 表达 式 值 相 对 应 的 ASCII 码 字符 。 算 术 表 达 式 
的 值 必须 在 0 一 255 之 间 。 

COS(X) 

求 X 的 余弦 值 COSX。X 只 能 是 弧度 。 

EXP(( 算 术 表 达 式 ?) 
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求 亿 的 值 。X 是 算术 表达 式 。 

INTCX) 

求 最 接近 X 的 而 又 不 大 于 X 的 最 大 整数 。 
LEFT$(A$,n) 

求 出 A$ 中 最 左边 的 n 个 字符 。A$ 可 以 是 字符 串 表 达 


LENCA 和 $) 

求 A$ 中 字符 的 个 数 , 即 长 度 。 

LOG(X) 

求 X 的 自然 对 数值 Lg(x) 。x 这 0。 

MID$CA$,n[L,m]) 

取出 字符 串 A$ 值 的 中 间 子 串 。n 表示 开始 字符 位 置 ,m 表 
示 所 取 子 串 的 字符 个 数 。 若 省 略 m, 则 取 第 n 个 字符 开始 后 的 
全 部 字符 作为 子 串 。1 和 nn,m 有 255。 若 n 大 于 和 A$ 中 字符 的 个 
数 ,那么 得 到 一 个 空 串 。 

PDLCn) 

这 个 函数 用 来 读 取 #n 游戏 控制 器 摇 杆 位 置 量 的 编码 值 
(0 一 255) 。0 和 <n 委 3。 

PEEK(CX) 

读 取 由 X 表示 的 内 存单 元 的 内 容 。 一 65535 委 X 委 65535.。X 
也 可 以 是 一 个 算术 表达 式 。 

POS (〈( 表 达 式 >) 

求 出 当前 光标 所 在 的 列 位 置 。 表 达 式 的 值 不 起 任何 作用 , 因 
而 可 简单 的 写成 0。 

RIGHT 和 $ (CA$ ,n) 

这 个 函数 的 作用 是 取出 字符 串 右 边 的 n 个 字符 ， 

RND(CX) 
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这 是 一 个 随机 函数 ,其 产生 随机 数 的 规则 是 ， 
X>>0, 产 生 0 一 0. 999999999 之 间 的 一 个 随机 数 ; 
X=0, 产 生 与 上 次 相同 的 一 个 随机 数 ; 
X<<0, 产 生 与 X 值 相对 应 的 一 个 随机 数 。 
SGN(X) 

这 是 一 个 符号 函数 ,其 规则 是 ; 


1 X>0 
sroo-|rx。 


-1,X<<0 

SIN(CX) 

求 X 的 正弦 值 。X 只 能 是 弧度 值 。 

SORN (X,Y) 

这 个 函数 给 出 低 分 辨 率 图 形 方式 下 (X,Y) 座 标点 的 颜色 
值 。 通 常 ,0 委 X 委 39,0<Y 委 47。 

SPC(( 算 术 表 达 式 >) 

产生 若干 空格 ,空格 个 数 由 算术 表达 式 的 值 来 确定 。 

SQR (X) 

求 X 值 的 平方 根 。X>O。 

STR $ (( 算 术 表 达 式 ) 

将 算术 表达 式 的 值 转换 成 字符 型 。 

TAB(( 算 术 表 达 式 )) 

以 当前 行 的 第 1 列 为 准 ,将 光标 移 到 指定 的 列 。 算 术 表 达 
式 的 值 必须 在 0 一 255 之 间 。 注 意 :TAB 语句 只 能 使 光标 右 移 而 
不 能 向 左 回 退 ;TAB 只 能 放 在 PRINT 后 面 使 用 。 

TAN(X) 

求 X 的 正切 值 tgx。X 必须 是 弧度 值 。 

USR (X) 
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将 算术 表达 式 X 的 值 送 到 机 器 语言 子 程序 中 进行 处 理 。 操 
作 过 程 是 : 

中 计算 出 X 的 值 并 保存 在 $ 0A 一 $ 0C 单元 中 。 

@@ 转 到 $ 0A 单元 去 执行 。 在 $0A 一 $ 0C 单元 中 存放 一 条 
JMP XXXX 义 指令 ,其 中 X XXX 是 用 户 自己 设置 的 处 理 $9D 
一 $A3 单元 中 X 值 的 子 程序 入 口 。 

@@ 在 机 器 语言 执行 完毕 , 即 到 RTS 后 该 函数 所 得 到 的 值 将 
放 在 浮 点 累加 器 中 。 


1.3 ”BASIC 出 错 信 息 一 览 表 


BAD SUBSCRIPT ERROR (107) 

使 用 数组 元 素 时 下 标 不 正确 ,或 下 标 值 超 界 。 

CAN'T CONTINUE ERROR (255) 

企图 执行 一 个 不 存在 的 程序 ,或 者 在 更 正 错误 之 后 想 继续 
执行 程序 。 

DIVISION BY ZERO ERROR (133) 

用 0 做 除数 。 

FORMULA TOO COMPLEX ERROR (191) 

语句 形式 太 复 杂 。 如 果 正 〈 字 符 串 》THEN 〈 语 句 ) 形 式 的 
语句 嵌 套 了 两 层 以 上 ,就 可 能 发 生 这 类 错误 。 

ILLEGAL DIRECT ERROR (254) 

不 能 把 INPUT、 DEF FN 、GET 或 DATA 语句 作为 立即 方式 
来 使 用 ,而 必须 在 程序 中 使 用 。 

ILLEGAL QUANTITY ERROR (53) 

非法 量 。 字 符 串 函数 、 数 值 函 数 的 参数 值 超 过 范围 。 

NEXT WITHOUT FOR ERROR (0) 
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FOR 和 NEXT 不 匹配 。 

OUT OF DATA ERROR (42) 

缺少 数据 。 执 行 READ 时 ,DATA 提供 的 数据 已 经 用 完 , 没 
有 数据 可 读 。 

OUT OF MEMORY ERROR (77) 

内 存 不 足 。 程 序 太 大 ;变量 太 多 ;循环 的 嵌 套 超过 10 层 ; 子 
程序 的 嵌 套 超过 24 层 ; 括 号 符 套 超过 36 层 ;设置 的 HIMEM， 
值 太 低 ;LOMEM : 值 太 高 等 等 都 会 发 生 这 类 错误 。 

OVERFLOW ERROR (69) 

数据 滋 出 错误 ,计算 后 的 结果 太 大 ,超出 了 计算 机 所 能 表示 
的 范围 。 

REDIM D ARRAY ERROR (120) 

重新 定义 数组 出 错 。 

RETURN WITHOUT GOSUB ERROR (22) 

GOSUB 和 RETURN 不 匹配 。 

STRING TOO LONG ERROR (176) 

字符 串 太 长 ,以致 超过 255 个 字符 。 

SYNTAX ERROR (16) 

语法 错误 。 保 留 字 拼 写 不 正确 ;括号 不 配对 ;一 个 语句 行 中 
夹杂 了 不 应 该 有 的 字符 。 这 些 情况 均 可 能 发 生 这 种 错误 。 

TYPE MISMATCH ERROR (163) 

数据 类 型 不 匹配 。 

UNDEF' D FUNCTION ERROR (224) 

调用 了 未 定义 的 函数 。 

UNDEF' D STATEMENT ERROR (90) 

在 GOTO .GOSUB 或 THEN 中 使 用 了 不 存在 的 语句 行 号 。 
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附录 二 “LoGO 语言 一 览 表 


这 里 给 出 了 本 书 中 用 到 的 LOGO 的 命令 .控制 以 及 常见 的 
出 错 信 息 。 对 于 固化 LOGO 与 APPLE 一 LOGO 之 间 的 差别 ,也 
在 表 中 注 明 ,固化 LOGO 中 没有 的 命令 ,在 对 应 位 置 上 用 “无 " 字 
标 出 。 


2. 1 APPLE 一 LOGO 和 固化 LOGO 命令 对 照 表 


ARCTAN : A/ :B 反正 切 函 数 ATAN :A :B 
BACK/BK (X》 后 退 X 步 

BUTFIRST/BF 〈 字 / 表 》 去 掉 前 一 字符 

BUTLAST/BL ( 字 / 表 》 去 掉 后 一 字符 

CATALOG 显示 磁盘 文件 目录 

CHAR 17 打印 图 形 

CLEAN 清 屏 ， 不 复位 

CLEARSCREENVCS 清 屏 ， 复 位 

CONTINUE/CO 取消 暂停 ， 恢 复 运行 

COS (X) 余弦 函数 

。DEPOSIT 1913 (X》 设置 打印 格式 

DOT [xX Y] 打点 命令 无 

END 定义 过 程 结 束 标志 

EDIT/ED "过 程 名 》 进入 编辑 状态 ED《〈 过 程 名 》 
ER [ 〈 过 程 名 A》 《过程 名 B》 …] 清除 部 分 过 程 无 

ERALL 清除 内 存 全 部 过 程 ER ALL 
ERASE/ER ”过 程 名 》 清除 指定 过 程 ER 《过 程 名 
ERASEFILE "文件 名 》 删除 磁盘 指定 文件 
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用 办 “用 该》 


FIRST ( 字 / 表 》 
FORWARD/FD (X》 
FPUT 〈 字 / 表 》( 表 》 
HEADING， 
HIDETURTLE/HT 
HOME 

IF 《条件 》 [命令 序列 ] 


IF AND (条 件 1) (条 件 2) [ 


IF OR (条 件 1) 《条 件 2) [ 


IF NOT 《条 件 ) [命令 ] 
INT 《变量 

LAST 〈 字 / 表 ) 

LEFT/LT (X) 

LOAD " 《文件 名 》 

LPUT 〈 字 / 表 》《〈 表 》 
MAKE ”变量 名 》〈 表 达 式 》 
OUTPUT/OP (变量 /表达 式 》 
PENDOWN/VPD 
PENUP/PU 

PO ”过 程 名 

POALL 

PoOTS 

PR 〈 《过 程 名 》 (参数 …》) 
PRINT/PR 《变量 / 表 达 式 》 
。PRINTER 1/0 
PRODUCT (X)(Y)》 
QUOTIENT (X)(Y》 
RANDOM 《(X》 
REMAINDER (X》(Y》 
REPEAT 〈《X》 [命令 序列 ] 
RIGHT/RT (X》 


ROUND (X》 


取 前 一 字符 

前 进 X 步 

前 〈 字 / 表 》 置 后 表 前 

测定 海龟 方向 

海龟 消 隐 

不 清 屏 ， 复 位 

满足 条 件 执行 [命令 序列 ] | IF 〈 条 件 》 (命令 》 


》 


< 淮 ? IF ANYOF (…) 〔(… 
或 ”逻辑 条 件 表达 式 2 


“ 非 ”逻辑 条 件 表 达 式 IF NOT (条 件 》 (…》 
会 小 数 取 整 INTEGER 
取 后 一 个 字符 
海龟 左 转 X 度 
将 文件 读 入 内 存 READ ” 《文件 名 》 
将 〈 字 / 表 》 置 于 表 后 
表达 式 值 赋 给 变量 
…/…)》 值 


调 阅 〈 打 印 ) 过 程 PO 〈 过 程 名 》 
调 阅 〈 打 印 ) 全 部 过 程 POALL 

调 阅 〈 打 印 ) 过 程 名 

打印 过 程 结 果 

打印 《人 [ee 值 

联接 / 断 开 打印 机 OUTDEV 1/0 
求 积 (X .Y) 函数 无 

商 〈(X/Y) 取 整 函数 

随机 函数 0~ (X 一 1) 

取 余 (X/Y) 函数 

将 口中 命令 重复 X 次 

海龟 右 转 X 度 

舍 入 取 整 函数 
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< FL ALLOF (…) (…) 
与 ”逻辑 条 件 表达 式 人 


) 


APPLE 一 LOGO 


用 途 〈 用 法 ) 


SAVE ”( 文 件 名 》 
SENTENCE/SE 〈《 字 / 表 / 数 > 
SETBG (X) 

SETPOS [XY] 
SETPOS SE : X : Y 
SETHEADING/SETH (X》 
SETPC (X》 
SETSCRUNCH 〈(X》 
SETX (X) 

SETY (Y) 
SHOWTURTLE/ST 

SIN (X)》 

SQRT (X) 

STOP 

SUM (X(Y) 

TO 〈 过 程 名 

TYPE 《变量 

WAIT (T) 

WORD- ( 字 1) 〈 字 2) 
XCOR 


YCOR 


APPLE 一 LOGO 


将 内 存 文 件 存盘 
连接 字 / 表 / 数 

设置 屏幕 底 色 
坐标 绘图 命令 〈 实 参 ) 
坐标 绘图 命令 〈 形 参 ) 
海 色 顺 时 针 转 X 度 
设置 画笔 颜色 

纵横 比例 设置 
海龟 水 平移 X 处 

海 色 垂直 移 至 Y 处 
显示 海龟 

正弦 函数 
平方 根 画 数 
停止 过 程 

求 (X+Y) 的 和 函数 
过 程 定 义 标 志 

紧凑 打印 

延 时 

连接 字 

测定 海龟 X 位 置 
测定 海龟 Y 位 置 


BG (X) 
SETXY (X(Y 


同上 


PC (X) 


。 ASPECT 《X) 


无 


PRINT1 《变量 
无 
无 


固化 LOGO 


CTREL 十 工 
CTRL 十 S 
CTRL 十 L 
CTRL 十 Y 
CTRL 十 W 
CTRL 十 乙 
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全 文本 显示 
图 形 /文本 混 显 
全 图 形 显 示 
重 显 前 次 命令 
暂停 〈 用 任意 键 恢复 ) 
暂停 〈 用 CO 恢复 ) 


CTRL 十 F 
CTRL 十 P 


CTRL 十 P 光标 上 移 
CTRL 十 N 光标 下 移 
CTRL 十 O 光标 处 产生 空 行 
CTRL 十 C 保存 修改 ， 退 出 编辑 
CTRL 二 G 


CTRL 十 A 光标 调 至 行 首 
CTRL 十 E 光标 调 至 行 属 
CTRL 十 K 删除 光标 右 侧 字符 
CTRL 十 D 删除 光标 处 字符 
CTRL 十 B 光标 左 移 不 清 字符 
所 键 光标 左 移 ， 清 左 侧 字 符 
记 键 光标 右 移 ， 不 清 字符 


2.3 LOGO 常见 出 错 信 息 表 


(A》 CAN' T BE USED IN PROCEDURE IN (B)。 
A 不 能 用 在 过 程 B 中 。 


. CAN' TDIVIDE BY ZERO 


零 不 能 作 除 数 。 

(十 》 DOSEN' TLIKE AS INPUT IN (A》 
“十 ”符号 不 能 作为 参数 输入 到 A 中 。 
(过 程 》DIDN' T OUTPUT TO (命令 ) 。 
过 程 没 有 输出 任何 参数 以 供 命令 使 用 。 


。， FILE ALREADY EXISTS 。 


文件 已 经 存在 。 即 用 户 文 件 同 先前 的 文件 同名 了 。 


，FILE NOT FOUND 。 


文件 没有 找到 。 即 殴 入 的 文件 名 不 在 磁盘 上 。 
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7. (FDIS A PRIMITIVE (…) 。 
“FD” 是 基本 命令 …。 
8.(A》 HAS NO VALUE IN (B) 。 
A 没有 值 送 给 B。 
9. IDON' TKNOW HOW TO (…)。 
我 不 认识 〈《…》 是 什么 。 
10. IDON' T KNOW WHAT TO DO WITH (数据 。 


我 不 知道 数据 用 来 干什么 。 
11. (过 程 》IS ALREADY DEFINED。 


过 程 已 经 定义 。 
12. NOT ENOUGH INPUT TO (过 程 ) 。 


调用 过 程 时 没有 足够 的 输入 项 。 
13，NUMBER TOO BIG 。 


数值 太 大 。 
14. OUT OF SPACE IN 。 
内 存 空间 已 用 完 。 
15.TURTLE OUT OF BOUNDS。 
海龟 超 界 。 
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